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OVERVIEW 


?he object of this Phase II SBIR Proiect was to 
fabricate, and test a flight -capable model ® 
tracker with multistar tracking capability. 
low power, low mass, and sensitivity comparable 

star trackers were desired in a design reliability, 

must allow direct replacement of current NASA star tracker. 

The star tracker incorporates a Texas Instrument TC217 CCD 
SLIr high-rlliabilSy and radiation hard electronics, and 
optical components fabricated out of radiation hard glasses. The 
engineering unit compares favorably in fun^ional i 

tests to the standard NASA star tracker. The CCD star tracker is 
characterized by a flexible architecture, allowing multiple 

operation modes (e.g., energy saving, high update, mapping, etc.) 

which are software selectable. To allow even greater 
flexibility, the star tracker software can be updated through a 
remote link. Thus, the tradeoffs between star tracker 
capabilities (update rate, resolution etc.) and power 
requirements can be fine-tuned for each mission. 

The star tracker software was developed to 

hardware functionality, demonstrating concept feasibility, and 
ciuonortina oerformance tests. Development of hardware- 
interactive modules has been completed, while high level routines 
are in preliminary versions. The software is upgradable by 
remote link (RS-422) . A hardware-protected kernel ensures 
communication link continuity during the 
Currently the star tracker performance is 

tasking software. The hardware was designed to be able to ^ 
perform several tasks simultaneously (exposure, data conversio , 
data analysis, reporting) using an interrupt-driven method of 
operation. Utilizing these capabilities with multitasking 
software will achieve a tracking rate limited only by sensor 
sensitivity . 

in summary, ARC has designed, developed, tested 

an enaineering model of a CCD star tracker with multistar 
tracking capabilities. Test results prove that the performance 
of the engineering model star tracker (even with suboptimal 
software) exceeds that of the standard NASA star tracker, which 
can track only a single star. Software upgrades to 
tasking operation will further improve the performance of the CCD 

Star tracker. 
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DESIGN CONCEPT 


Design objectives were: 
o multi-star tracking capability, 
o low production cost, 

o reliability, 

o low power consiomption, and 

o mechanical and electrical compatibility with standard NASA 
star tracker. 

Above objectives, together with limited development time and 
budget, imposed design constraints and forced certain trade-offs. 

The most severe impact on design selection was low pr oduction 
cost requirements. It required: 

o transmission optics in place of mirrors, and 

o commercial CCD sensor in place of astronomical grade 

CCDs. 

The last selection was additionally supported by the low power 
requirement, (thus necessity of selecting a sensor capable of 
operating in the temperature range -10®C to +50®C without 
cooling, or with only minimal cooling in high temperature 
environments . 

Selecting a sensor capable of rapid (0.5ms) image transfer into 
internal sensor memory avoids a mechanical shutter, thus 
decreasing cost and power requirements, and increasing 
reliability by avoiding movable mechanical components. 

Reliability requirement has been fulfilled by selecting: 

o electronics components from PPL19, ISTP and Sampex - high 
reliability components list. 

In addition all parts have been derated (at least by 20%) with 
respect to producer specification. However, restricted component 
selection results in limited CPU processing power, and higher 
electronics mass and volume than with state of the art 
components. Some alternate designs are listed at the section 
titled "Suggested Improvements". 
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Low power consumption requirement have been fulfilled by: 
o using CMOS digital chips, 

o avoiding line termination, 

o building all power drivers using complimentary MOSFETS, 

® switching power off to all bipolar component when they are 
not operating, and 

o implementing a "sleep" mode whenever possible. 

As low power requirements cannot be fullfiled together with a 
high update rate, the star tracker was designed with a flexible 
hardware architecture and several operational modes. These modes 
can be selected by software, allowing tuning of the power 
requirement, update rate, and processing complexity for each 
particular mission. 

Requirement of mechanical and electrical compatability with 
standard NASA star tracker forces external shape of star tracker 
and required placing the electronics components on PCB's of a 
peculiar shape. As electrical compatibility may not always be an 
issue, the star tracker interface to external connector was 
implemented as a separate module - allowing easy modification. 

Remaining electronics were also implemented in modular fashion 
allowing easy upgrades (adding memory board, replacing CPU, 
etc . ) . 

Limited development time and budget determined software 
development and processor choice. A PC was chosen as the cross 
development platform due to programming tools availability, low 
cost and ARC staff experience. 
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DESIGN SUMMARY 


CCD star tracker features: 

Lens: SOiran, f/1.4, field of view of 8®x 8® 

Six element Petzval lens compensated for 
600-1000nm. Built of rad hard glass. 
Athermalized in -lO’C to +50*C range. 
Optical losses 15% (T/1.54). 

Sensor: CCD Texas Instruments TC217 1134 x 486 

(interlaced 972). Pixels 7.8 x 13.6 
jim^. Image area 8.84 x 6.6 mm^ (11.7mm 
diag.). Multiple analog storage area, 
electronic shutter (about 0.5ms) QDE 
40% in the spectral range 500-850nm. 

NES 15 electrons. Dynamic range 60dB 
min. Field of view 10.1® x 7.55®; area 
76.26® square. Pixel field of view 32" 

X 56" (26" interlaced) . 

Electronics: Radiation hard components, conservative 

design. CPU 80C82, 128K RAM, 128K 
EEPROM Flexible architecture - software 
controllable parallel operation 
synchronized by custom sequencer, CPU 
and timers. CPU clock 4MHz (20% 
derated) . 

Mechanical: Mechanical compatibility with NASA 

standard star tracker (Ball Brothers) . 

Interface: RS-422 full duplex (4 wires) . Power on 

baud rate 9600. Command switchable baud 
rates 19. 2K, 38. 4K, *80K. Analog x, y, 
m, (+/- 5V 500Q) star presence (0 or +5V 
220li) . Two external control signals (0, 
+28V or 0, +5V with jumper removed), can 
be software reconfigurated (e.g. 
acquisition start, reduced search) . 
Compatible with NASA standard star 
tracker . 

*For testing only - excess UART 
specification. 
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PERFORMANCE SX3MMARY 


CCD star tracker performance; 

Field of view 10® x 7.5® 

Spectral range 500-1000nm, 600-800nm max sensitivity 

Noise equivalent angle for brightest star in field of view 
3x3 arc second 

Point spread (FWHH) 

4x4 pixels (interlaced) 

Full width 10% above noise level 
8x8 pixels 

Optical system aberations 


for 4® X 4® FOV for 8® x 8® FOV 

Monochromatic (850nm) < 1 pixel (30") <2 pixels (60") 

1000 - 600nm extreme < 2 pixels (60") <4 pixels (120") 

Subpixel interpolation error due to optics astigmatism and coma 
aberrations 

4 " X 4® FOV 8® X 8® FOV 

< 1 pixel (30") <2 pixels (60") 


Subpixel interpolation linearity 

5x5 arc second (without software processing) 


Power requirements 

1-3W mode dependent 


Sensitivity vs update rate 


Update Rate 
[HJ 


Sensitivity 
[Star Magnitude] 


1 

*5 

*20 


5-6 

4 

2-3 


* Required software improvement 

Acquisition time 
* 1 sec 

* Software module not fully tested 

Power on ready 
0.5 sec 
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PHYSICAL DESIGN CHARACTERISTICS 


OPTICS 

Custom designed by Tuscon Optical Research Corporation. 

50.3mm at f/1.4 

8* X 8* field of view at 600-1000mm 

Petzval 6 element lens built of rad hard optical glass 
(Schott SF6G05 and SSK5G06) 

Single magnesium fluoride coating 

Optical losses 15% 

Athermalized in -10®C to +50® range 

Scale factor change .0004 in -10®C to +50®C corresponds to 
l|xm at the image edge 


Um or dbdo«u*« of the«e 8B1R dot. i. «ilaoct to tlio restriction on the title page of this report. 


2-1 



U«e or discl<Muro of thoM SB IR date U «ubaect to the restriction on the tifle page of thi« repo|^ 

2-2 


Temperature range: -10 to +50*^C 

Lens must be initially focussed 
at 20-29®C for infinity target. 


Uncalibrated 
focussable +2ram 



Cell made from AL 6061 or 
similar coeff. of expansion 
23.4 X 10-6 /oc 


Invar Spacer 
0-2 X 10“°/°C 


STAR 50C ALL ALUM EXCEPT SP9= INVAR 


REF. LENGTH 50.00 
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STAR SPOT SIZE 


Intsnsity drops to 50% peak at distance of 1 pixel {7.8jim) front 
center, to 2% at distance of 2 pixels. 

60% of total flux in 4 pixels 

15% of total flux in 1 pixel (defocussing factor) 

Calculated Flux Distribution 



5% 

5% 


5% 

15% 

15% 

5% 

5% 

15% 

15% 

5% 


5% 

5% 



40% QDE and 15% Absorption => 5% of total flux in one pixel 


Calculated Flux Intensity 



2% 

2% 


2% 

5% 

5% 

2% 

2% 

5% 

5% 

2% 


2% 

2% 



There is about 1/2 pixel asymmetry at the edge of the field of 
view which can be corrected by software improvements. 
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CCD SENSOR 


Considered — 

Tektronix: TK512 

Thomson-CSF : TH7 8 8 3 , TH7 8 8 4 , TH7 8 63 

Texas Instruments: TI213, TI215, TI217 

Kodak: KAF-300L 


Selected — 

Texas Instruments: TC217 


Features of TC217 — 

1134 X 486 (972 interlaced) pixels 
Each 7.8 X 13.6|im^ 


Field of View 
with 50mm optic 

1 1134 X 

^ 

Mode 

486 

1134 X 972 
interlaced 

Entire CCD 

Q 

o 
1 — 1 

X 7 

.5" 

lO** X 7.5“ 

1 pixel 

1 32" 

1 

(H) 

X 56" (V) 

32" (H) X 28" (V) 

Expected resolution 
at 1/10 of pixel 

1 

1 

i 3” 

(H) 

X 6"(V) 

3" X 3" 


Dynamic range Full well 66,000 e 

Uniformity <1% 

Dark Current at RT 200electrons/sec/pixel 


Conversion factor 6 . 2^iV/electrons 
QDE 40% in range 500-850nm 

Architecture — 

Image area 
Two storage areas 
Shift registers 
Clearing drain 

Advantages — 

Room temperature operation (very low dark current) 
Electronic shutter mode ~ image transferred to storage area 
in 0 . 7ms 

Exposure and data acquisition in parallel 
Clearing drain - fast dumping of irrelevant portion of 
image, i.e. fast access to selected image window ^ 

Virtual phase shift registers - simplified clock signal 


Disadvantages — 

Complicated architecture 
Large number of clock signals 
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functional block diagram 


TOP DRAIN 



TDB 

ABG 

lAG 

TMG 

SAG2 

SRG3 

SRG2 

SRG1 

TRG 



MECHANICAL DESIGN 


Mechanical compatibility with NASA standard star tracker (Ball 
Brothers) . 

Thermal compensation: 

o Athermalized lenses 

o CCD attachment 
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CCD ATTACHMENT 


Asymmetrical position of image area with respect to CCD package 
requires thermal matching. 


Thermal Expansion Coefficients 

Thermal Expansion 

Material Coefficient ppm/oC 


Silicon 5+,2.5 

Kovar 5+.1 

Molybdenum 5^1 

Ceramic (macor) 9 

Aluminum 23+.2 


Molybdenum bar, ceramic disk and aluminum base plate are joined 
together systematically with respect to image center. This image 
center is not moving with temperature changes in spite of thermal 
coefficients mismatch. 
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OPTICAL CENTER 


CCD FQck.Qqe_- 

23.39 < 0 ^ 21 ) 

! I 

I I 




HOUrBOENUM BBK 



CERAMIC DIS^ 
(MACOK'^ 
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SIGNAL CONDITIONER 


Modification of Kitt Peak design Dual Slope Integrating Amplifier. Relatively complicated 
but offering best signal to noise ratio. 

CCD signal can be monitored at: 

• output of CCD 

after first amplifier 

• after integrator buffer (normal mode) 


Parts 


Harris HA-5147A Op Amp (fast) 

Burn Brown OPA 602 FET Op Amp 
Harris: HS302, HS303 analog switches 
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AD CONVERSION 


Main Multiplexer: Harris, HS508 8 to 1 

Output Buffer: Burr Brown, OPA602 FET OP Amp 

ADC: Analog Devices AD7672 12 bit 5|1S 

Busy signal used to synchronize with CPU 

Comparator ~ used for test search 

LM193 -> generates STOP signal to PCSG and interrupt for CPU. Threshold level is 
programmable through DAC and sample/hold amplifier. 


MULTIPLEXER MULTIPLEXER BUFFER 



<1 
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DAC & ANALOG OUTPUTS 


To save power and real estate only one DAC was used. We selected MAXIM MAX543 because of 
serial interface and small package. Output of DAC is multiplexed to several S&H 
amplifiers . 

Overvoltage protection up to 0.5 Joule surge 
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PROGRAMMABLE CLOCK SIGNAL GENERATOR (PCSG) 

Programmable sequence allows generation of series of clock signals for CCD. Allows fast 
image transfer to storage area (electronic shutter) and fast clearing of CCD after 
overexposure . 

When programmed and started it operates independently of CPU. 

Synchronization with CPU is achieved through interrupts generated by PCSG. 

Allows parallel operation: 

CPU calculates star(s) position 

PCSG controls exposure, image transfer and, partially, digitization. 

Parts : 

HC series and CMOS 
Memory 2 x OW62256 32K x 8 



Wemal 

tigiwland Aditn 

AcmwMgtmrt 


Dale In/Uti 


To and From I/O carl 


By Pass 
From I/O carl 





ON BOARD COMPUTER 


CPU; 

Harris; HS80C86 
Clock; 

Harris; HS82C86 12 MHz crystal, allows "sleep" mode 
Timer, Baud clock generator, watchdog; 

UART; Harris; 82C54 
Plessey; MA28151 
I/O: 

Harris: HS8255 and 54HC573 

RAM: 

OmniWave: OW622 56 128K bytes 

EEPOM: 

SEEQ: 28C256 12 8K bytes 

Interrupt controller: 

National Semiconductors; 82C59 


Um or disclo«ure of these SBIR data is sulgect to the restriction on the title page of this report. 


2-21 



U»e or disclo«ur« of these SBIR data is subject to the restriction on the title page of this report. 


DIGITAL INTERFACE 


RS-422 full duplex (4 wires) : 

TxD+ 

TxD- 

RxD+ 

RxD- 

Chassis GND 
9600 bauds 

UART: Plessey MA28151 

Drivers /receiver : 

National: DS26C31MJ/883 

DS26C32AMW/883 

Overvoltage protection: 

Space on boards for surge 
protection diodes, not tested. 


Digital and Analog Interface 





IM lIl 
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HOnSBKBBPINO SATA 


Housekeeping data is read during power up of ARC star tracker (there is a 1 
minute delay# this allows warm up and self test software to execute) . The 
results are stored in memory and can be read out through a serial port or # in 
test version of software, displayed on the monitor. 

Internal voltages are measured at 24 points, and table entitled Housekeeping 
Tests summarized for each test point numerical value (as tested with external 
voltmeter or oscilloscope), typical A/D output, and acceptable error. 

The results of self tests have been presented to NASA representatives during 
program status review. 
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HOnSEKBEPING TESTS 


Test 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

16 

17 

18 

19 

20 
21 
22 
23 

1 . 

2 . 

3 . 


Measured 
#_ Quantity 

Bias 22m Voltage 
Power +12V Continuous 
Power +12V Analog 
Power +6V Driver 
Power +5V Continuous 
Power +5V Analog 
Power +2V Driver 
Bias+ Voltage 
Int. Buffer Offset 
ABG Voltage Medixim 
I AG Voltage Medium 
ABG Voltage 
Bias- Voltage 
Power -IIV Driver 
Power -12V Analog 
Power -12V Continuous 
Temp, of Volt Ref. 

Output of Voltage Monitor 
Lens Temperature 
Int. Buffer Output 
Temp, of Peltic Coolers 
Direct Output of CCD 
Amplifier #1 Output 
Temp, of CCD 


Nominal 

Value 

A/D 

Outout 

Acceptable 

Error 

-8.1V 

385 

+/-10% 

+12V 

3619 

+/-10% 

+12V 

3619 

+/-10% 

+5V 

3072 

+ /-5% 

+5V 

3072 

+ /-5% 

+5V 

3072 

+/-5% 

+2V 

2458 

+/-10% 

OV 

2048 

+/-.1V 

-1.5V 

1740 

+/-10% 

-1.5V 

1740 

+/-10% 

-5.5V 

922 

+/-10% 

-7V 

615 

+/-10% 

-9.2V 

164 

+ /-5% 

-IIV 

607 

+/-10% 

-12V 

476 

+/-10% 

-12 V 

476 

+/-10% 

.63 V 

2306 

Only Chip Actd 

Repeats 

Value of 

Selected Cham 


+4.9V 4050 In Dark Only 


REMARKS 

Temperature channels (#18/ #20/ and #23) will be calibrated after final assembly. 

Channels #17/ #19, #21, and #22 are used to monitor dynamic properties circuit 
and output value depends on circuit timing and exposure condition of CCD. 

Channel 16 is used to monitor if reference voltage generator operates properly. 
Due to lOM resistor (preventing any significant load) the A/D convertor output 
indicates much lower voltage (about 0.2) . 
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POWER SUPPLY 


Power is supplied by two DC-DC converters Interpoint MHF2805S and MHF2812D capable to 
deliver 5V/2A and +~12V/500mA respectively. Both converters can be replaced with 883 
classified version. Several voltages for CCD driver are then subsequently produced by 
voltage regulators LM117H and op amps. To save power during exposure time all inactive 
circuits can be switched off. Turn-on time is 3mS. 

Overvoltage protection up to 150V after replacing transistor. Surge protection - possible 
up to 1 . 5KJ/ components not placed into boards. 

Power return insulated from ground - up to 500V 
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SOFTWARE 


Developed and tested on IBM-PC (AT) with Turbo Pascal and Turbo Assembler (Borland) . 
Transfered to Embedded System with Locate and TDREM from Paradi^. This approach was 
selected to reduce development costs, allow flexibility, simplify modification and allows 
simultaneous testing of partially built hardware in first stages of project. 

Major software blocks: 

Acquisition 

Position (s) Calculating Block 
Communication 

Housekeeping, Testing, Power Saving 
Failure Prevention - Planned 


ACQUISITION 


Search Modes: 

Fast search - uses threshold detector comparator and determines position of stars above 
threshold. Search of entire array requires several seconds. Can be decreased to 200ms 
(50ms with compression 3x3 pixels into one) by software improvement. 

Slow Search (Mapping Mode) : 

Digitizing every pixel. Appropriate for selective search in selected window. Rate is 20 
to 50 times slower than in fast search. 

Standard Operation: 

o Fast search (approximate exposure time and approximate star position) 
o Selective search (position, magnitude) 

o Shrink the size of acquisition window around star 
o Adjustment of exposure time and fat zero illumination 
o Switch to interlaced mode 
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ACQUISITION IN TRACKING MODE 


1. Transfer to image storage area and start exposure - duration .5ms (PCSG) . 

2. Dump image lines in front of tracking window into clearing drain - duration .2ms 
(PCSG) . 

3. Dump of pixels in front of tracking window - duration 0-.3ms (PCSG) 

4. Integration and digitizing of about 15 pixels in selected line ~ duration .15ms 
(PCSG, CPU) . 

5. Dump remaining pixels and getting new line - duration .002ms (PCSG). 

6. Repeat 3, 4, and 5. 

7. a) Wait until exposure is completed then execute 1. and 2. (PCSG); and 
b) In parallel with 7a calculate star position (CPU) . 


1 

Image transfer 


Image Ar< 

ia 

\ 

1 

/ 

B 



2 

Dumping Image Lines 



3 



4 



5 


Get new line / dump old 



PCSG - task executed by programmable clock signal generator 
CPU - task executed by CPU 
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DECODING AND ADJUSTMENT IN TRACKING MODE 


1. TI217 CCD was designed for color TV so each line in shift register contains every 

third image pixel and next line also contains every third pixel offset by one. 



This coding can be easily resolved by CPU. However, it imposes limits on 
positioning tracking window i.e., it can be relocated only with accuracy of 3 
pixels . 

2. Fat zero illumination and electrical offset are adjusted based on dark current 
measurements (monitoring level of dark pixels, dark lines, and pixels just cleared 
of change) . 

3. Exposure time adjustment based on maximum intensity pixel. 

4. Repositioning tracking window if star position is .55 pixel size out of pixel center 
(no dynamic repositioning so far) . 



TRACKING ALGORITHM 


Standard mean centroid algorithm was used with modification for 
background subtraction. 

Isa 

X Sc = I (Pixel intensity-background) . 

ISc columns 

Is 

Yj, = — Sj. = I (Pixel intensity-background) . 

SSr rows 

Tracking window was divided into several subwindows: 

Star window 
Background window 
Transition region 
Slow-down region 

Background is calculated as average in background windows 
separately for interlaced (shifted) image and for not interlaced 
(not shifted) image, then subtracted from star window before 
applying centroid algorithm. 

Data from transition region and slow-down region are disregarded. 
Slow-down region is necessary to stabilize electronic circuitry 
after changing shift frequency. 

Planned software corrections: 

Position in CCD 

Temperature (CCD, Lens, Base Plate) 

Averaging when changing position of tracking window 

Tested but not implemented; 

• Fourier corrections on subpixel scale 


TRACKING WINDOW 



3-A 



COMMUNICATION 


Two types of interface to star tracker are available: 

Analog outputs x, y, m, star presence (+5V) 

Digital RS-422 bidirectional 

After applying power, star tracker is entering test mode followed 
by search mode. If search successful, star presence signal and 
X, y, m, outputs are updated. Digital interface is in 
listen-only mode. 

9600 baud transmission rate and response time less than 100ms 
will be supported by interrupted driven interface to UART . 

Two implementations of communication interface are considered. 

1. Simple (custom written) will allow byte transmission without 
handshaking. If is sufficient for star position reporting, 
magnitude and status reporting. 

2. Full feature communication package based on Blaise Asynch 
Plus 5.00 communication routines ported to embedded system 
will allow large quantities of data to be transferred to and 
from star tracker. Necessary if program will have to be 
changed remotely and for full diagnostic (memory and 
registers readout) . 
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HOUSEKEEPING 


Temperatures - measured every frame: 

o Lenses 
o Base plate 
o CCD 

o Electronics 
o Thermoelectric cooler 

Internal voltages (measured on power-up or on request) : 

o Voltages supply - 10 
o Voltages bias - 2 
o Voltages reference - 3 


IN-FLIGHT TESTING 


o Voltage monitoring 
o CCD response to LED (three colors) 
o CCD test pattern (dark pixels, cleared pixels) 
o Monitoring CCD output, of first amplifier 
o Telemetric readout of memory 


REMOTE MODIFICATION OF SOFTWARE 

Communication Kernel is hardware protected from overwriting. 
Kernel can be modified by loading secondary copy and rebooting 
system. Rebooting using secondary copy can be then executed 
automatically by primary ( nonmodi fi able) kernel on every power 
up. Tracker main software and secondary kernel is hardware 
protected for overwriting with possibility to overwrite 
protection using coded switch. This software can be modified 
remotely in flight. 
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PERFORMANCE AND TEST RESULTS 


OPTIC SYSTEM 


Tested Nikon 50inin/fl.2 
Partially Tested Tuscon 50. 3 /f 1.4 


PERFORMANCE OF CCD 

Sensitivity 

Spectral response of CCD sensor was tested with black body source 
and Nikon 50inin/1.2 camera lenses. Reasonable agreement with 
spectral data was found in visible region. In infrared region 
sensitivity was about 50% of expected. 

This discrepancy was attributed to reflection from lens coating 
in infrared. Tests with new optics are necessary . 
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I Photon Flux after filter TC217 CCD RESPONSE linpc; arp fnr 
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Wavelength [nm] 




SPOT SIZE 


Nikon lenses produce relatively large point spot 
(8 X 11 at f = 16, 12 X 18 at f = 1.2) . 

Custom designed lens will produce point spot better matching CCD 
pixel size thus allows reduction of tracking window size, speeds 
acquisition, and increases sensitivity by concentrating entire 
photon flux in smaller number of pixels. 

Until after testing with new lenses we can present only estimated 
performance . 
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Intensity Pi of ile ^^Hole = 20tim 
F colimator = 635mm; Lens 50mm f=16 
X pixel 7.8pm =3.2"; Y pixel 6.8pm =2.8" 



Intensity 4096=66,000 
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Intensity profile 0Hole=2O/im 
F colimator= 635mm; Lens 50mm f = 1.2 
X pixel 7.8)<m =3.2”; Y pixel 6.8Mm=2.8" 



Intensity 4096=66,000 





CALCULATED SENSITIVITY 


Lens 50mm F/1.4 A = lOcm^ 

Flux N = 

QDE = 40% Defocusing factor 15% Absorption 15% => 5% in 1 pixel 


M N/Sec In 1 pix/sec Exposure Time/Filling of Well 

Full Well = 66000 electrons 
Is 100ms 10ms 1ms 


0 

50*10® 

2.5*10* 



38% 

4% 1 

1 

20*10* 

1.2*10® 



18% 

2% • 

2 

8*10® 

400*10^ 


60% 

6% 

.5% 








3 

3*10* 

150*10^ 


23% 

2% 


4 

12*10® 

60*10^ 

100% 

10% 

1% 


5 

.5*10* 

25*10^ 

38% 

4%-J 

- .4% 


6 

200*10^ 

12*10^ 

18% . 

^ 2% - 



7 

80*10^ 

4*10^ 

6% 

.5% 



8 

30*10^ 

1.5*10^ 

2% .2% 



9 

12*10^ 

.6*10^ 

1% 




10 

5*10’ 

.2*10^ 

.3% 





I Operating Range Room Temperature 
I Operating Range with Cooling 


Use or discloaure of these SBIR data is sulqect to the restriction on the title page of this report 


LINEARITY 


Tracking performance (both static and dynamic) of TC217 CCD was 
tested with Nikon lenses. 

Point spot produced by these lenses is relatively large (about 
8 X 11 pixels) even with partially closed diaphragm. So, 
tracking window 9 x 15 pixels was necessary to achieve linearity 
about . 1 pixel . 

Errors of about .2 pixel are introduced when tracking window was 
relocated in perpendicular direction. This error can be reduced 
by calculating position based on relocated and non relocated 
window and averaging. 
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X CCD vs Lin. Scan X CCD - Lin. Fit. 
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510 520 530 540 550 560 

X linear scan [pixels] 





•ft 




•I*. 






X CCD vs Lin. Fit X CCD - Lin. Fit. 
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Fourier Regression n =3 X axis 



[s|0X!d] BJBP aoo X 
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510 520 530 540 550 560 570 

X linear scan [pixels] 




X CCD Multiple Scans to the Same Point 
I window 9x15 
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POWER REQUIREMENTS 


The main power consumers are CCD drivers and computer. However, 
CCD drivers do not require any power when not clocking CCD and 
CPU can be placed in sleep mode after finishing calculation. 

DC-DC converters are inefficient on low power load so idle power 
consumption will be about IW. 
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Watts 



Time [ms] 

Average power consumption was measured. Subsecond power requirement 
was calculated on the basis of power measurements for each subsystem. 
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Watts 



Time [ms] 

Average power consumption was measured. Subsecond power requirement 
was calculated on the basis of power measurements for each subsystem. 
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IMPROVEMENTS 


PCSG “> Integrated Sequences 

Entire programmable clock signal generator circuitry can be replaced by single chip field 
programmable controller AM29CPL154H-25-883/B produced by AMD. EPROM ~ 512 x 36 bits. 

DIP 28 I supply 115mA when active, can be switched off during exposure time. 

SIMPLIFIED BLOCK DIAGRAM 
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DISTRIBUTED LOGIC 

Distributed glue logic on CPU, PCSG, ADC, and DAC boards can be replaced by single Actel 
ACT 1020 field programmable gate array (883/B) in 84 pins ceramic pin grid array package. 
Effect ive equivalent of 2,000 gates. 

CMOS “ power dissipation only when active switching. 

EPROM - radiation tolerant CMOS antifuse (up to 1.5 megards) 



STAR TRACKER PROJECT 
CURRENT STATUS 


The ARC Star Tracker engineering unit was tested. It compared 
favorably to the standard NASA star tracker (see progress report 
June-August 1992). Several, but not all, flight subsystems were 
completed. 

The project was divided into several subtasks, each one 
corresponding to development of a particular hardware or software 
subsystem. Status of each task and Star Tracker subsystem is 
summarized below. 

Optical: 

lens, fat zero illumination, athermalized sensor holder - 
flight hardware completed and successfully tested. 

Mechanical : 

interface flange, electronic compartment cover, PCB mounting, 
connectors mounting, Peltier coolers, thermal anchoring, LEDs, 
thermistors . 

- design completed, flight parts manufactured and tested. Not 
fully assembled. 

Electronics : 

- design completed and tested successfully with engineering 
boards. Flight boards 1, 2, and 3 were successfully tested. 
Boards 5, 6, and 7 were tested, but require rework. Flight board 
#4 has not been tested. 

Software: 

Mini operating system; 

(not modifiable after assembling) - tested operating. 

Problems with transmitting large amounts of data (above 500 bytes 
in 1 sec.) were not debugged. System was modified to allow using 
secondary copy of operating system which can be remotely updated. 

Acquisition module: 

-preliminary version is operating. Low level (hardware- 
interactive) procedures were completed. High level procedures 
(star selection, artifact rejection) are operating but not fully 
debugged. Acquisition module can be remotely updated. 
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Tracking /Coinmandable module; 


-oparating. All low level (hardware-interactive) procedures were 
optimized, debugged, and are finalized. High level procedures 
(searching, tracking, command interpreter) are operating, but 
were not fully debugged, and safety checks are not implemented. 
Tracking program can be remotely updated. 

Unresolved Problems: 

Lack of operational reliability of CPU boards - possible cause: 
bad connection or floating input. 

Mini operating system failure to handle large datasets - 
possible cause: improper interrupt servicing. 

Undeveloped and im Imp lemented features: 

High level algorithm ~ acquisition, tracking and commandable 
modes . 

Parallel hardware operation (interrupted driven) allowing 
simultaneous sensor exposure, data acquisition, and data 
processing. 

Integration of the flight unit. 

Instrument - level functional and environmental tests of the 
flight instr\iment. 
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APPENDICIES 
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QUARTBRIiY PROGRESS REPORTS 


Dec “ Feb 91 
Mar - May 91 
Jun - Aug 91 
Sep - Nov 91 
Dec ” Feb 92 
Mar - May 92 

Jun 92 - Status Report and Schedule 
Jun - Aug 92 
Sep - Nov 92 
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APPLIED RESEARCH CXRPCRATICN 
PROGRESS REICRT NAS5-31169 

LCW-OOST SEAR TRACKER 




• The characteristics of three OCD arrays with respect to their usefulness for 
the Star Tracker were compared: 

- TK512 (512 X 512 pixels) made by Tektronix; 

- TH7863 (288 x 384 pixels) made by Thcmson-CSP; and 

- TC217 (1134 X 486 pixels) mde by Texas Instruments. 

We considered the following CCD parameters and determined the OCD array which we 
believe offers the best overall combination of these parameters: 

- expected long-term availability; 

- reliability; 

- accuracy (star position); 

- sensitivity (tracking faint stars); 

- dynamic range (star magnitude); 

- speed (image u^ate rate, especially during initial star acquisition); 

- flexibility of operation^ modes; 

- no need for OCD cooling; 

- lew cost. 

We tentatively sel€ ted the TC217. 

• A Conceptual Design Review was held at GSEO (Tom Budney's office) on January 

16. The participants were: Tom Budney (Code 745), Tom Collinson (Code 

745.1), Rick Schnurr (Code 712.2), Marek Chmielowski (ARC) and Siegfried Auer 
(ARC). Budney verbally presented NASA's "Wish List": 

- accuracy (absolute): -10-15 arc sec 

- update rate: -5-20 per sec 

- power consunption: <7 watt 

- mass: <7 pounds (3.8kg) 

- star's angular velocity: up to 0.5 degree per second 

- dynamic range: -2... +6 star magnitudes, 

- a star presence signal 

- in addition to digital outputs, the following analog outputs are desired: 

(a) pitch angle (±20 arc min); 

(b) yaw angle (±20 arc min); 

(c) star magnitude (±0.25m) for the brightest star in the field of view; 
Chmielowski presented ARC’S conceptual design. 

• A very preliminary parts list was discussed with Tim Gruner (Code 745.2). 

• Tradeoffs were made between the following Star Tracker parameters: 


Use or disclosuro of these SBIR data is sulgect to the restriction on the title page of this report. 


- fast acxguisition, 

- high accuracy, 

- hi^ sensitivity, 

- wide range of star brightnesses, 

- lew power consunption; 

- low irass, 

- high reliability, 

- low cost. 

The initial star acquisition will be fast (less than 1 second), while power 
consunption nay be high and accuracy low. In the tracking mode, the update rate 
can be as high as 100-200 per second (increased power consunption) or as lew as 
1 per second (low power consunption) . 

• About half of the parts for the breadboard model have been ordered so far. 
Problen 

Texas Instruments has just (March 6) advised AE?C that the fabrication of the 
TC217 presently yields 100 percent unacceptable devices. This problem persisted 
since July 1990. TI has employed a task force to resolve it. Prior to July 
1990, the TC217 was sold at a high volume of about 500 per year (1989 and 1990) 
in the US alone. 

Because of the uncertain availability of the TC217, ARC decided to go ahead with 
a design based on the CXD array model TC277 (732 x 290 pixels). In Phase I of 
this SBIR project, PiBC already used a TC277 and successfully demonstrated a 
resolution of about 5 arc seconds and a field of view of 11 x 8 degrees. Thus, 
we are very confident that we can meet most if not all requirements for a star 
tracker using the TC277. 

As soon as TT resolves its fabrication problem, we will consider modifying esur 
design to implement the TC217 in place of the TC277. The two CX33 models have 
very similar architecture. The TC277 is being sold at a very high volume of 
about 3000 per year in the US alone, and there appears to be no problem with 
fabrication and supply over the foreseeable future. 

An alternative CCD array would be the TC213 or TC215 ( 1024 x 1024 pixels ) . 
Because of its much higter cost ($5,500 versus $690 for the TC217 and $585 for 
the TC277) an3 very low production volume, we consider it as a backup to the 
TC277. 

Planned Activities for the Months of March. April. May 1991 

• To assemble the circuits to drive the OCD array, to ampli^ the video signal, 
to digitize the video signal, to store the digitized signals, and to test and 
operate this circuitry with a TC277. As drive circuits, we plan to initially 
use ccmmercial non-flight IC's frem TI and to later replace than with parts 
which are available in high-rel. As the video airplifier, we plan to 
initially use a circuit design developed by the Kitt Peak National 
Observatory and to modify it for lew power consurrption and high reliability. 
For all other circuits, we plan to use the ccmmercial equivalent of the 
high-rel parts that we intend to use in the protoflight model. A preliminary 
parts list is enclosed. 
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. Hie electronic readout will be first tested with IH4-PC based digital^ 
card. This will allow testing of firmware and lew level hlocte of software 
before implementing into dedicated microprocessor systan and into PRCM. 

• TO set up a microprocessor development system for the 80C86. 

• To measure the focusing characteristics of several lenses. 



T.-ist. March 1991 APT star Tracker 

Part 


High-ralu f 

80C86 

CPU 

ISTP 

5012 

ADC, lOys 

Sim. to 5016 (ISTP) 

or 7672 

ADC, 5US 

883 

CXC505 

high speed op amp 

S level 

QPA404 

quad ECT op amp 

883 v: 

IM139 

voltage caip. 

ISTP 

A-250 

chairge sens, preanp 

ISTP V 

6617 

2K X 8 CMS roCM 

ISTP 

6564 

8K X 8 MM 

ISTP 

82C54 

interval timer 

ISTP 

82C55 

interface 

883 

82C82 

octal latch 

883 

82C85 

clock controller 

ISTP 

H2S series 

high speed CMS logic 

ISTP 


Rad-hard 

X 

X 


X 

X 

X 

X 

X 

X 

X 

X 
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We received one CCD array, Texas Instruments' model TC 217-40. 
Meanwhile, TI has resolved its manufacturing problems and is 
shipping two more CCD arrays, model TC 217—30, the highest grade 
available . 

The electronic circuits to drive the CCD array, to amplify and 
to digitize the video signal were assembled and tested with the TC 
217 CCD array. 

As drive circuits, we used commercial non-flight-qualified ICs 
from TI (TMS3473B and SN28846) . 

In parallel, we are developing CCD drive circuits which meet 
the following stringent requirements: 

1. Quiescent power must be minimal (« 1 mW per driver) ; this 

is a long way from the typical quiescent power 
requirement of the order of 0.3 — 0.5 W for . a 

commercially available high-rel CCD driver. 

2. Only parts are to be used which have high-rel, rad-hard 
counterparts . 

3. A driver must be capable of driving a capacitive load of 
13, 000 pF with signals having a 12 V amplitude and a fall 
time of only 90 ns, or driving a capacitive load of 1100 
pF with a rise/fall time of only 15 ns. 

4. Adjustable, intermediate voltage levels must be provided 
for 2 of the 9 drive signals. Commercially available 
high-rel CCD drivers have no such provision. 

5. The HIGH and LOW voltage levels for 6 of the 9 drive 
signals must be individually adjustable for optimum CCD 
performance, yet the driver inputs must be HCMOS levels 
(fixed at 0 V and + 6 V) . Commercially available high- 
rel drivers have no such provision. 

Table 1 lists the relevant requirements for each signal. 
Preliminary tests indicate that most or all of the above 
requirements will be met by our circuits. 

As the video amplifier, a modified version of a circuit 
developed by the Kitt Peak National Observatory was built and 
tested. 

We digitize the video signal using a commercial AD7672, 

All electronic circuits were designed to be directly 
controlled by TTL signals generated by an I/O card in an IBM-PC 
compatible computer. This allows testing of firmware and low and 
high level blocks of software before implementing into dedicated 
microprocessor system and into PROM. 
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To date, several parts of software were developed and tested: 

1. The acquisition module - part of software directly 
interacting with hardware. This module was written in 
assembly language and allows direct control of CCD 
drivers, video amplifier and A/D converter. The major 
function of this package is to digitize a selected part 
of the CCD image and store the selected "window" in the 
computer memory. 

This package also allows for continuous removal of 
charge generated in CCD to prevent saturation. This 
function is executed in parallel with other computer 
tasks . 

2. The image analysis module - part of software used for 
calculating star positions, selecting "windows” to be 
digitized and adjusting operational parameters. 

This part of software is currently under development. 
The module calculating a single star position is now 
tested. The modules for selecting operational parameters 
and tracking multiple stars are not fully operational 
yet . 

The above described hardware and software were tested using a 
He-Ne laser and a black-body radiator simulating starlight. 

Preliminary results suggest that the entire system noise will 
allow a resolution better than 1/10 of the CCD pixel size. 
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TABLE 1 CCD INPUT SIGNALS FOR TC 217 


Clock Gate 

Capacitance 

Rise 

Time 

Fall 

Time 

Voltage 

Swing 

Inter- 

mediate 

Level 

Voltage Levels 
Requiring 
Individual 
Adjustment 

Image Area Gate 

13,000 pF 

150ns 

90ns 

-lOV. . .+2V 

-2V 

-2V 

Antiblooming Gate 

1,100 pF 

150ns 

90ns 

-7V. .+4.5V 

-1.2V 

-1.2V 

Transfer 
Multiplex Gate 

150 pF 

15ns 

15ns 

~10V. . .+2V 

- 

-lOV, +2V 

Storage Area 
Gates 1 & 2 

11,000 pF 

150ns 

90ns 

-lOV. . .+2V 

- 

-lOV, +2V 

Transfer Gate 

200 pF 

150ns 

90ns 

-lOV. . .+2V 

- 

- 

Serial Register 
Gates 1, 2 & 3 

180 pF 

15ns 

15ns 

-lOV. . .+2V 

- 

-lOV, +2V 
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PLANNED ACTIVITIES FOR THE MONTHS OF 
JUNE, JULY & AUGUST 1991 


Develop software for localizing and tracking of single 
simulated star, and for automatic adjustment of 
operational parameters of hardware. 

2. Test tracking system linearity and noise using simulated 
star and rotational camera mounting. 

3. Select acquisition parameters to optimize non-linearity 
and random noise errors. Develop linearization 
procedures if necessary. 

4. Expand software to allow localizing and tracking multiple 
stars . 

5. Test time of execution at different parts of software 
followed by software optimization with respect to the 
execution time. 

6. Design PCB for CCD drivers, assemble and test drivers 
with CCD array. 

7. Design CCD and lens holders. Holders will allow for 
compensation of difference in temperature expansion 
coefficients between CCD array and lenses. 
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Preliminary Parts List, June 1991 


Part 

Function 

High-Rel 

Established 

Rad-Hardness 

CF 50 N 

Camera Lens, 50 mm/f2 


10 Mr ad 

FRL 130R 

Power MOSFET (psIRFF 133) 

SAMPEX 

yes 

FRL 9130R 

Power MOSFET (itIRFF9133) 

SAMPEX 

yes 

80C86 

CPU 

ISTP 

yes 

82C54 

Interval Timer 

ISTP 

yes 

82C55 

Interface 

883 

yes 

82C82 

Octal Latch 

883 

yes 

82C85 

Clock Controller 

ISTP 

yes 

5012 

12 bit ADC fes5016, ISTP) 

(ISTP) 

yes 

7672 

12 bit ADC (alt. to 5012) 

883 


HA-5147 

Low Noise High Speed Op Amp 883 


OPA-602 

High Speed FET Op Amp 

883 

yes 

LM 139 

Voltage Comparator 

ISTP 


A-250 

Charge Sens. Ampl. 

ISTP 

yes 

1840 

16 Ch. Multiplexer 

ISTP 

yes 

LM 124 
MAX 543 

Op Amp 
12 bit DAC 

PPL 19 


REF 02 

Volt. Ref. & Temp. Sensor 

ISTP 


OW 62256 

32kx8 SRAM 

SAMPEX 

yes 

AC 00 

NAND Gate 

SAMPEX 


AC 02 

NOR Gate 

SAMPEX 


AC 14 

Schmitt Trigger 

SAMPEX 


4053B 

CMOS Analog Switch 



4066B 

CMOS Analog Switch 

PPL 19 


6617 

2k X 8 PROM 

ISTP 

yes 

HCS series 

High-Speed CMOS Logic 

ISTP 


1N5711 

Schottky Diode 

PPL 19 


1N4148 

Diode 

PPL 19 


2N2222 

npn Transistor 

PPL 19 


2N2907 

pnp Transistor 

PPL 19 
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We developed a system that permits testing the linearity and 
positioning error of the star tracker. The test system consists of 
a TI model TC 217 CCD array and a Nikon 50 mm/ 1.2 lens, mounted on 
a motorized three axis rotator (Oriel model 18368) with computer- 
controlled positioning. 

The following software modules have been developed to record the 
position of a simulated star while rotating the camera. 

1. Star finding module: That part of the software which initially 
finds the star in the field of view, selects the tracking window 
and the initial exposure parameters. This module was tested using 
various image compression techniques in order to speed up the 
procedure . 

2. Star tracking module: That part of the software that 
continuously tracks the star, repositions the tracking window and 
adjusts the exposure parameters . 

3. Star position analysis module: That part of the software which 
estimates the precise star position (to a fraction of a pixel) , the 
position error, the star magnitude, etc. This procedure utilizes 
data from both non-interlace and interlace (frame shifted by Vi 
pixel) modes to permit comparing the star tracker accuracy 
achievable in various modes of CCD operation. 

4. Scanning module: That part of the software that controls the 
angular pointing of the camera. This module allows scanning in 2 
axes with an accuracy of better than 0.05 pixel (with an f=50 mm 
lens) while the star position is being recorded. A variable-size 
step technique was used to reduce the amount of data to be recorded 
while preserving small and large scale accuracy. The backlash 
compensation characteristics of the rotational stages were taken 
into account while tracking a simulated star and recording the 
data. 


5. Background compensation module: That part of the software 
which controls the "fat zero” (due to background illumination) of 
the CCD array and eliminates the influence of the background on the 
estimated star position. This module is still under development. 

The test results (see figure 1) indicate that the error and the 
reproducibility of the estimated position are about 0.05 pixel in 
the horizontal axis of the CCD array (corresponding to a resolution 
of 1.5 arc sec within a field of view of 10 degrees) . The 
cumulative (when scanning in both horizontal and vertical 
direction) non-compensated nonlinearity is about 0.2 pixel. 

In the vertical axis of the CCD array, the interlace technique 
(frame electrically shifted by ^ pixel) is used to increase the 
resolution. However, when using this technique, a strong non- 
linearity in dark current and sensitivity in the vertical direction 
is introduced. We are now developing software for compensating 
these undesirable effects. 
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Preliminary CCD sensitivity measurements, using both wide spectral 
continuum radiation from a blackbody and discrete color from a He- 
Ne laser, have been made and the quantum detection efficiency was 
estimated using both thermopile and silicon detectors. Equipment 
for a full characterization of the star tracker's spectral 
sensitivity is being set up. 

We developed and partially tested a CCD drive circuit that will 
probably meet all of the stringent requirements listed in the last 
report (i.e., minimal quiescent power; use of high-rel and rad-hard 
components; very fast switching; intermediate voltage level; and 
input compatible with HCMOS) . 

A PCB layout for the drive circuit has been completed. We expect 
the circuit performance to depend on the PCB layout; therefore, a 
full and realistic test can only be made with the assembled PCB. 
We plan this as the next step after PCB manufacturing. 

We are working on the mechanical and thermal design of the housing 
and support of the lens and the CCD array and the flange by which 
the star tracker is mounted to the spacecraft. The CCD mounting 
fixture is designed to hold the CCD array such that the center of 
its image area stays on the optical axis within about ± 1 |im 
(corresponding to ± 4 arc sec) over the entire operational 
temperature range (-10 to +50 degrees Celsius) . 


Planned Activities for September, October, and November 1991 

1. Test the tracking system's linearity in the vertical direction 
of the CCD and optimize the exposure parameters to minimize the 
influence of the pixel centroid shift on the linearity. 

2. Develop linearization algorithm. 

3. Test position error within different portions of the CCD image 
area and for different CCD chips. 

4. Characterize the CCD sensitivity and the position error as a 
function of wavelength. 

5. Expand software to allow finding and tracking up to five stars. 

6. Test time of execution at different parts of software and 
optimize software with respect to the execution time. 

7. Complete the design of CCD and lens holders and of the mounting 
flange. The holders will allow for compensation of differential 
thermal expansion coefficients. 

8. Prepare and present Preliminary Design Review. 
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Progress ; 


The spectral sensitivity of the CCD (TC217) and the Nikon 50 
rnm/1.2 lens were characterized using a temperature staJDilized 
blackbody source and narrow-band visible infrared interference 
filters. In the wavelength range 400 - 750 nm reasonable (better 
than 30%) agreement between calculated and measured data was 
found (see Figure 1) . In the rainge 750 ~ 1000 nm the measured 
response is consistently 50% lower than expected. 

To find out the source of this discrepancy the response of the 
CCD without lens was compared to the response of a thermopile 
detector. The measured response of both thermopile detectors and 
CCD without optics have been found to agree within 20% of the 
expected value. ThuS/ the discrepancy in long wavelength ranges 
was attributed to a lower lens transmission in this wavelength 
range . 

The linearity of centroid algorithms was tested as a function of 
tracking window size, lens f number/ CCD position, and 
wavelength. A window size as large as 9x15 pixels was found to 
be critical for obtaining linearity errors smaller than +/- 0.1 
pixel (equivalent to +/-3 arcseconds) . The remaining parameters 
were found to have a negligible effect on linearity errors and 
position noise. 

Data taken with a 9x15 window exhibit position modulation with 
one pixel period. The modulation amplitude is about 0.08 pixel 
(about 2.5") and stable in time. A Fourier correction algorithm 
was applied to eliminate this modulation. Only a one-dimensional 
correction algorithm was applied up to now. The evaluation of 
the algorithm' s final accuracy as well as the evaluation of a 
two-dimensional correction algorithm were postponed until the CCD 
mounting flange will be ready and thus the mechanical stability 
will be assured. 

The TI CCD exhibits relatively large charge trappings at room 
temperature. To allow detection of faint stars it was necessary 
to fill the charge traps at the beginning of the exposure times. 

A 'FAT ZERO' circuit based on LEDs was developed and tested. 

CCD/ Integrating Amplifier, Far Zero circuit, and A/D converter 
have been successfully tested in the temperature range from -10 
to +40® C. Above +40® C high charge spreading was observed. 

Simplified versions of the integrating amplifier have been 
tested. However, the charge injection due to unbalanced switches 
was found to be unacceptably large. 

The relative processor time necessary for execution of different 
parts of software was measured and it was found that 98% of the 
processor time was spent on repetitive generating of various 
waveform patterns. The Programmable Clock Signal Generator 
(PCSG) is intended to generate some of these waveform patterns 
thus leaving the CPU free to perform calculations of the star 
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position. There is a trade~off between the complexity of the 
PCSG and the amount of tasks which can be transferred from the 
CPU to the PCSG. Thus, it was necessary to perform a detailed 
analysis of the software execution times and of the complexity of 
the design before preparing design specifications for the 
PCSG. 

The specifications of the digital circuits of the Star Tracker 
(CPU and PCSG) have been prepared and su bm itted to electrical 
engineers . 

Following a recommendation by Peter Corey of Nikon, we dropped 
our plan to use a Nikon lens for the Star Tracker. Instead, we 
issued a subcontract to Tucson Optical Research Corp. to custom- 
design a lens and a lens mount and to manufacture a prototype 
lens. This lens will use only radiation— resistant glasses. So 
far, the optical design has been completed, see the enclosed 
report . 

Planned Activity for December 1991 through February 1992. 

1. Design auid test of auxiliary electronics — backup euid 
housekeeping A/D converter, D/A converters used- for on-line 
adjustment . 

2. Test of final version of Analog Electronics, CCD drivers, 
auxiliary electronics, over the -10® to +50® C temperature 
range . 

3. Prepare final design of electronics — analog, auxiliary, 
and digital. 

4. Prepare final mechanical design. 

5. Transfer software from IBM PC computer to dedicated CPU 
board. 

6. Prepare test software which will simulate spacecraft Host 
Computer, 

7. Design lens mount and fabricate prototype lens. 

8. Prepare and present preliminary design review. 


Um or diflclooure of these SBIR data is sul^ect to the restriction on the title page of this report. 



PROGRESS REPORT 


LOW-COST STAR TRACKER 

Period: December 1991 - February 1992 


CONTRACT NAS5-31169 


APPLIED RESEARCH CORPORATION 
8201 Corporate Drive 
Suite 1120 
Landover, MD 20785 

(301) 459-8442/FAX (301)731-0765 


Uae or diadooure of theae 8BIR data ia aulgect to the reatriction on the title page of thia report. 



PROGRESS: 


The CCD driver circuit design was finalized, built in breadboard 
and PC board versions, and successfully tested in the temperature 
range from -20 to +50°C. As opposed to previous tests with TI 
commercial drivers, our drivers operated properly, even in the 
temperature range from +40 ®C to +50 ®C. 

However, at elevated temperatures, the increased CCD dark current 
limits the performance of the CCD sensor. So, we tested 
different thermoelectric coolers and intend to use them to keep 
the CCD temperature below or at room temperature. 

Auxiliary electronics (temperature monitoring, housekeeping, D/A 
converters, analog outputs etc.) were designed, built in 
breadboard version, and tested. The circuit can monitor in 
flight: temperatures at 4 different locations, the CCD output 

and the amplified signal at 3 points, 16 different supply and 
bias voltages. To save power, a switch for turning off most 
idling circuits during exposure time was designed, built in 
breadboard version and successfully tested at frame rates up to 
lOHz. 

A power supply was designed with Interpoint MHF DC/DC converters 
(883 classification pending) . Due to relatively high cost, 
converters have not been purchased and tested. We intend to test 
them after NASA acceptance during preliminary design review. 
Remaining elements of power supply have been tested at breadboard 
level as well as an alternate power supply based on step-down 
converters . 

The driver and amplifier board was designed, the PCS layout was 
prepared, the board was manufactured, assembled and successfully 
tested at room temperature. 

The analog/digital interface board was designed, the layout is 
currently being prepared. CPU and PCSG electronics have been 
•designed, and breadboard versions are now under debugging and 
testing. 

The mechanical design of main elements was finalized. 

An athermalized lens mounting was designed. A temperature and 
thermal stress compensated CCD mounting was designed. The cover 
design will be finalized after completing the entire electronic 
design. 

A prototype version of the lens (based partially on non radiation 
hard glasses) is currently produced. 
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Methods of software transfer from IBM-PC computer to embedded 
system was selected and appropriate software (locator TDREM, Run 
Time Lib) purchased. 

Responding to a verbal request from Mr. T. Collinson/ we 
redesigned the analog interface . 
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Planned Activities for March 1992 through May 1992. 

1. Preliminary Design Review - implementing requested 
modifications . 

2. Programming and testing digital electronics. 

3. Design board layout for digital electronics/ assembly and 
testing. 

4. Develop multi-star tracking software. 

5. Assemble entire electronics. 

6. Assemble star tracker. 

7. Prepare operational version of software to be transferred 
to embedded system. 
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PROGRESS : 


A prototype of the custom made lenses was produced and tested. 
Problems concerning proper location of focal plane and proper 
size of the reflector for "fat zero" were corrected. 

Acquisition A^sicking software was modified to match ^ 
characteristics of new optical system. The final version of 
mounting flange was designed. The cover design was finalized. 


The analog/digital interface board was assembled in PC board 
version and successfully integrated with amplifiers/drivers 
board. 


PCSG generator was assembled in breadboard version, tested and 
correction were implemented. Software generated wave forms were 
transferred to PCSG and tested. Acquisition software were 
modified to use both PCSG and software generated waveforms. 
Electronic circuit consisting with driver /amplifier, 
analog/digital interface, PCSG boards is currently tested with 
IBM-PC computer. Basic acquisition/tracking mode of operation 
was already tested. Fast search is under debugging. 

Multi star acquisition/tracking software were developed and 
tested in one exposure time version. Multi star ac<^isition with 
multiple exposure times (to track stars of substantially 
different magnitudes) is developed. 

Operational version of software to be transferred to embedded 
system was prepared. Hardware control signals, software 1/0 
space and interrupt services were converted to be dual system 
(IBM-PC and embedded processor) compatible. This software will 
]30 expanded by adding modules which are currently developed. 

Final PC board design was prepared for amplifier /driver, 
analog/digital interface and PCSG boards. Prototype of power 
supply housekeeping board is now assembled. 

CPU board was partially assembled in breadboard version and 
debugged. Programming kernel for software transfer to embedded 
system was developed, stored in ROM and debugged. 

iminary Design Review was prepared and submitted to NASA. 
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PLANNED ACTIVITY FOR JUNE 1992 - AUGUST 1992: 


1. Finalizing operational version of software. 


2 . 


3. 


4. 


5. 


6 . 


Finalizing design of CPU board p o vr e y . 
Testing power supply^ousekeeping board. 


Prepare final documentation and layout of electronic ” flight 
boards production. 

Transferring software to embedded system — debugging. 

Developing communication software and host computer 
simulator. 
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Status Report 


up to date (17th July 1992) the following tasks have been 
accomplished (marked if only partially) . 

• Design 

• Conceptual 

- Electronics 
Algorithms 

• Optical 

• Mechanical (modification is expected) 

• Calibration procedures 

• Prototyping and Testing 

• CCD functional test 

- CCD operational parameters limitation 

• Optics 

• Electronics (except CPU board) 

• Software - hardware interacting routines 

(except specific for CPU board) 

• Algorithms in IBM version ... 

Calibration procedures 

(tested only with preliminary .. opt ics ) 

For time frame of accomplished tasked see Figure Schedule ~ full 
triangle marks , 


Configuration and Performance 


Star tracker is currently operated in prototype version 
consisting of all analog and mixed analog and digital boards in 
printed circuit version (PCB) # with one digital board in^ 
prototype version, and with IBM computer controlling entire 
operation (in place of dedicated CPU board) . 


Entire electronics were tested in various operational condition 
including over temperature, under cind over voltage etc. The 
final (expected to be) version of PCB's are in layout preparation 
stage (except CPU board) . 


Functional operation of the entire electronics, software routines 
interacting with hardware, and basic algorithm were tested- Star 
tracker is capable to detect, locate, track and report position 
of multiple stars. Exposure time and CCD parameters are 
automatically adjusted accordingly to external (illumination) or 
internal (temperature) conditions. 
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Hardware interacting routines as well as calculation modules are 
in final version (except CPU board specific routines) whxle 
software governing algorithm execution is basic form i.e.# all 
star tracker fiinctions like: searching# locating# and trackxng 

of multiple stars are successfully executed but improvements 
should be done to increase performance. 

To Be Done 

The key step is to test the proper operation of CPU board - the 
last to be tested. The delivery of wire wrap protot^e of CPU ^ 
board is expected in the next few weeks. After testing CPU board 
the final version of PCBs for entire electronic can be ordered as 
well as software routines interacting with hardware can be fully 
converted to final form. Operational CPU board is also necessary 
for improving software perfomaance as timing of CPU board is 
substantially different than that of IBM. The following list of 
task to be done as well as schedule is prepared on the assumption 
that CPU board prototype will require only minor modifications 
and that ROM based software (delivered with CPU board) will 
assist transferring software from IBM to embedded processor as 
expected. 

Tasks to be done are organized to ensure hardware production in 
final version and possibly in flight quality version by the end^ 
of . November . 1992 .. _To__that date the _sof ^are jtfill__be develo ped, .x n 
’‘version "ensuring star tracker operation with acceptable 
performance# however# the further software development will be 
necessary to increase performance to the design specified level. 

. To Be Done 


CPU board test 

• ROM based software tests 

• Software transfer to embedded processor 

‘ Preparing final documentation of all PCBs 

Board production and assembly in final version 

• Test and calibration of final version of entire star tracker 
hardware 

• Software development 

o Assembly of flight version of star tracker 

o Environmental tests 

o Software improvement 
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Open circles marks task which may not be accomplished on time 

For time frame of tasks to be done see Figure Schedule — open 
triangle marks. 
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SCHEDULE - OVERVIEW 


|. 1991 I 1992 

|0»c-Ftb|llw-ll^y|JuB-Aiig|Sep-Motf|Oee-F€b|ll«r-llv|Jw»-Aug|S«p-*tow| 


ConcepttiaL Design 


Analog eLaetronies, 
testing 


1 J 


Software, CCD tests. 
Driver design 


Software - algorlthas, 
sensor tests (spectral, 
linearity, noise) 

T » 

Prell Binary design, theraal 
tests 


X y V-V 

Asseebly, boards testing, — -• 

troubleshooting ^ * 


FU6HT10T 

V—S 


Software-final, transfer 
to CPU board 

(seably of flight version 

Calibration, software 
laproveeent 


Environaental tests 





X Sf 
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SCHEDULE - DETAILS 


1992 


I J«i I Feb I Itar 


Prellalnary design, theraal 
tests 

Therael tests tjr 


Design of euxilliery 
electronics 


CCD driver tests 


Apr I Hey I J«n 1 Jul 


Tests of DAC/ 
housekeeping 

Heehanieal design 

Coaplete electronic 
design 

Driver board layout 

Preparation of preli- 
Binary design rev. 

Selecting aethods for 
software transver 



Asseably, board testing, 
troubleshooting 

Driver PCS, asseably, 
testing 

Analog electronics PCB, 
asseably, testing 

PCS6 breadboard, asseably, 
tests 

PCS6 layout 

Asseably all PCS boards, 
testing of entire electronics 


X r 


t f 
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Test ZBH opcretlonal version 
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Transfer software to CPU board 

Learn how to use transfer 
tools 

Transfer IBH operational version 
to CPU with Bodifled I/O apace 

Optlalze software for CPU board 

Calibration^ software 
laproveaent 

Correction algorlthas 

— — -(position,- teap., -Intensity)-* — -—irj-- 

Algoritha for high angular 
velocity 

Housekeeping nodule 

Teaperature aonitor 
Cooler controls 
Voltage aonitor 
Hatch Dog 

Interrupt priority alero aa nsger 
Power sawing controls 

Software security 

Asseahly of flight version of star tracker 
■ Enviroaental tests . . — 
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|Apr|My|JuR| Jul |Aug |Sip.| 


AsMably, board tasting, 

'roublasbootlng 

PCS6 - assaably f CB, tasting 

CPU braadboard, assaably, 
tasting 

CPU layout, assaably PCS, 

OfjtC ^ 

Softwara-flnal, transfar 
to CPU board 

Hultlstar Algorltha 


Prograaaing PCS6 

Initialization routina 
(wavafora storing) 

Softwara aodlfl cation 
to use PCS6 

Test PCS6 on IBM 

Fast search node. 
Interrupt driven search . 


—Test fast search -aoda 



Modify software to aatch new optics 

Selecting tracking windou size • 
lens tests 

Prograaaing window paraaeters 
Convert algorltha to asseablcr 

Hodl-fy IBM AT version to CPU bMrd 
requlreaents 



U 
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PRCDGRESS : 

An engineering model of the star tracker was assembled and 
tested. It consists of: custom designed lens, moimting flange, 

and electronics (driver /amplifier, analog/digital interface, Md 
power supply boards all in PCB version, as well as programmable 
clock signal generator board in wire wrap version) . The software 
is performing the following basic star tracker functxons: 
acquisition, tracking, and mapping. This was tested on an IBM- PC, 
interfaced to the engineering model. 

Multi-star acquisition and tracking operations as well as its 
self -testing capability were demonstrated to NASA. The star 
tracker performance was compared to NASA star tracker. The ARC 
star tracker was found operating with full performance with 
simulated stars of -1 to +4 star magnitude. The noise equivalent 
angle (for a stationary star) was found to be better than 3 arc 
seconds in the above mentioned star magnitude range. 

All seven boards of the star tracker electronics were designed, 
the layout was prepared for four PCBs and these boards are now 
being manufactured. The CPU unit was designed and a wire-wrap 
version was electrically tested. The layout for three CPU boards 
is now in preparation. 

The software transfer to the embedded system is in progress: ROM 

software was prepared and tested, hardware related routines were 
transferred and tested. The main star tracker program is being 
revised. 
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PLANNED ACTIVITY FOR SEPTEMBER 1992 - NOVEMBER 1992 

1. Prepare final dociunentation. 

2. Modify software to improve tracking speed. 

3. Develop communication software cuid external c omm a n d 
interpreter. 

4. Trauisfer entire software to embedded system. 

5. Assemble and test flight version of star tracker. 

6. Perform environmental tests and calibration. 
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PRCX3RBSS 


The layouts for three CPU boards were prepared and the boards were 
manufactured. All seven flight-version PCBs of the star tracker were 
assembled. Each board was electrically tested; layout and assembly errors 
were corrected. Boards #1, #2, and #3 (CCD drivers and amplifiers, A to D 
conversion and logic, power supplies and self testing) were interconnected and 
successfully tested. Boards #4, #5, #6, and #7 (sequencer, CPU, memory, 
serial interface) were interconnected and tested. Several design, layout, and 
assembly errors were found and corrected. Boards #5, #6, and #7 functioned 
with serious reliability problems, which have not yet been fully debugged. 
Functional tests on board #4 were not performed because such tests are not 
feasible without Boards 5 to 7 operating properly. The star tracker interface 
flange was redesigned to improve thermal contact with the Peltier coolers. The 
redesigned flange was fabricated and tested to demonstrate mechanical 
compatibility with other flight hardware. The serial interface was placed on 
a separate PCB, as requested by NASA. The electronics compartment housing was 
redesigned and manufactured, and the mechanical compatibility was 
demonstrated. The mini operating system (ROM) was modified to accommodate 
hardware changes, tested, and several bugs found and corrected (memory tests, 
software overwrite protection, command set) . Errors causing unrecoverable 
problems when transmitting large amounts of data have been localized but not 
yet corrected. The system was modified to allow using a secondary copy of the 
operating system which can be remotely updated. The main star tracker program 
was simplified, and diagnostic code was partially removed. The entire program 
was remotely loaded into EEPROM (using the serial link) and successfully 
tested on the engineering model. The program was also tested on flight 
hardware to the extent possible. Summary documentation was prepared and the 
project status was presented to NASA representatives. 
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SOFTWARE LISTING 


Required Software Packages 

Communication Kernel and bootstrap 

code 

Turbo Assembler listing 

CCD.Lst 

Loading program 

Turbo C Listing 

PLoad . C 

Star Tracker Program 

Star Tracker 

StS.Pas 

Units 

Start 

STStart . Pas 

Definition 

STDefOl.Pas 

Acquisition Setup 

STAQSOl . Pas 

Acquisition 

STAQOl.Pas 

Main Control 

StMainOl . Pas 

CCD Data Processing 

StPpicOl . Pas 

Centroid Calculating 

StCpicOl.Pas 

Diagnostic Display 

StDpic04 . Pas 

Sequenser Programming 

StPCSeOl.Pas 

Self Diagnostics 

StTest . Pas 

Initial Search and Settings 

STSrchOl.Pas 

Housekeeping Control 

StAuxOl .Pas 

Serial Communication 

StReml . Pas 


Turbo Pascal Run Time library modification 

SE.ASM 


ROM Kernel function description 
EEPROM code loading instruction 
Memory map and linker configuration 
Hardware I/O and Interrupts map 
Batch and make files 
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Required Software Packagee 


The following commercial software packages are required to generate executable 
software for ARC Star Tracker: 

Software from Borland International: 

Turbo Pascal Version 6.0* 

Turbo Pascal Run Time Library 
Turbo Assembler Version 2.0* 

Turbo C++ Version 1.0* 

Software from Paradigm Systems: 

Locate Version 3 . 1 

Remote testing requires the following packages: 

From Borland International: 

TDrem Version 2.1 

Turbo Debugger Version 3.0* 

From Paradigm Systems: 

Turbo Profilter Version 1.0* 

Remarks — 

Software packages marked with asterisk (*) have not been purchased by 
contract . 
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1 

2 

3 

4 

5 

6 

7 

8 

9 0000 
10 0000 
11 0000 
12 0000 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


f 

; VI. 00 5/10/92 Initial release 
; VI. 01 New EEPROH access control 

; VI. 02 8/13/92 Prograa execution control 
; V2.00 9/30.29 Modified test 
; V0.80 11/25/92 for flight boards 


DATA segment para public 
data ends 

CODE segment para public 

CODE ends 


•DATA' ; 00000 - 07fff 

•CODE' ; ffooo - fffff 


Hardware equates 


= 0200 

UREE 

equ 

= 1000 

STOP 

equ 

= 1100 

ICOO 

equ 

= 1102 

IC01 

equ 

= 1200 

PPIOO 

equ 

= 1202 

PPI01 

equ 

= 1204 

PPI02 

equ 

= 1206 

PP103 

equ 

= 1300 

UARTOO 

equ 

= 1302 

UART01 

equ 

= 1400 

ADCP 

equ 

= 1500 

PITOO 

equ 

= 1502 

PIT01 

equ 

= 1504 

PIT02 

equ 

= 1506 

PIT03 

equ 

= 1600 

UATCHO 

equ 

= 1700 

UGEN 

equ 

= 0000 

RAMI 

equ 

= 2000 

RAH2 

equ 

= FOOO 

EEPROHI 

equ 

= DOOO 

EEPROM2 equ 

= FEOO 

TDstrt 

equ 

= 55AA 

Tpttrn 

equ 

= 0008 

EEPnl 

equ 

= 0002 

EEPn2 

equ 

= 0001 

EEPn3 

equ 

» 0000 

TstOfsEl equ 

= 0000 

TstOfsE2 equ 

= FFF6 

TstofsE3 equ 

= 004E 

BndR09 

equ 

= 0027 

BndRD2 

equ 

= 0014 

BndRDA 

equ 

= OOOA 

BndRD8 

equ 

= 0007 

BndRDIIS equ 


0200h 

1000h 

1100h 

1102h 

1200h 

1202h 

1204h 

1206h 

1300h 

1302h 

1400h 

1500h 

1502h 

1504h 

1506h 

1600h 

1700h 

OOOOh 

2000h 

OFOOOh 

ODOOOh 

OFEQOh 

55AAh 

16-8 

16-14 

16-15 

0 

0 


0FFF6h 



78 

;98 for IS MHz 

; 78 for 12MHz 

39 

;49 for 15 MHZ 

; 39 for 12MHz 

20 

;24 for 15 MHz 

; 20 for 12MHz 

10 

;12 for 15 MHz 

; 10 for 12MHZ 

7 

; 8 for 15 MHz 

; 7 for 12MHZ 


NOT supported by UART 


« 0020 
= OOOF 


EOl equ 20h 

UREEEN equ Ofh 


; non-specific EOI 
; write eeproa enable 
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55 


56 

= FEOO 

PROT ROM equ 

OFEOOh 


; start of protected kernel ROM 


57 

= FFF6 

KerAbv equ 

0FFF6h 


; Above BOOT code - first above 


58 







59 

= FDOO 

UsrAseg equ 

OFDOOh 


; Area not protected by hardware 


60 

= OFFC 

UsrAofs equ 

OFFCh 


; Last 4 bytes before protected seg FEOOh 

61 







62 

= EOOO 

Ghosti start 

equ OEOOOh 

; Start of EEPROMi ghost 


63 

= FOOO 

Ghostlend 

equ OFOOOh 

; First above ghost 


64 







65 


/ 


— 



66 


; Interrupt Equates 



67 


/ 





68 







69 

= 0008 

RXRDY^INT equ 

8 


; int 8 - receiver ready 


70 

= 0009 

TXRDY_INT equ 

9 


; int 9 - transaitter ready 


71 







72 

= 0010 

GETCH_INT equ 

lOh 


; int lOh - get character 


73 

= 0011 

PUTCH_1NT equ 

11h 


; int 11h - put character 


74 

= 0012 

URTEE_INT equ 

12h 


; int 12h - write EEPROM 


75 

= 0013 

TXRDY_S_,INT equ 

13h 


; int 13h - soft version of TXR0Y_INT 


76 







77 


/ 





78 


; Global i 

Ben»ry - 

initialized to zero 


79 


/ 





80 







81 0000 


DATA segaent 





82 







83 



org 

20h 

; interrupt vector table 


84 0020 


raaivt 

dd 

16 dupC?) ; (address sensitive) 


85 







86 



org 

00b 



87 0000 

0100*(????????> 

ras_^intr 

dd 

256 dup(?) ; interrupt vectors space 


88 







89 







90 







91 0400 

???? 

rx_inp 

dw 

7 

; rev q input pointer (i = 

o eepty) 

92 0402 

???? 

rx_outp 

dw 

7 

; rev q output pointer (i-1 = 

= o full) 

93 0404 

???? 

tx_inp 

du 

7 

; xst q input pointer 


94 0406 

???? 

txjoutp 

dw 

7 

; xot q output pointer 


95 0408 

???? 

pwrup_err 

du 

7 

; powerup test results (0 = 

nornal) cx 

96 





; 0 - RAM1 err 

$1 16 

97 





; 1 - RAMI err 

$2 15 

98 





; 2 - RAMI byte access err 

$4 14 

99 





; 3 - RAMI addressing err 

$8 13 

100 





; 4 - 8259 int ctrlr err 

S10 12 

101 





; 5 8255 parallel port err 

$20 11 

102 





; 6 - 8254 tiser err 

$40 10 

103 





; 7 - 8251 uart err 

$80 9 

104 





; 8 - EEPR0M1 write error 

$100 8 

105 





; 9 - OSR not active 

$200 7 

106 





;10 - RAM2 err 

$400 6 

107 





;11 - RAM2 err 

$800 5 

108 





;12 ' RAM2 byte access err 

$1000 4 
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;13 - RAM2 addressing err 
;14 - EEPR0H2 write error 
;15 - EEPROHI KERNEL access 


113 040A 

52*(??) 

Bsgbuf 


db 82 dupC?) 

; message text from console 

114 045C 

40*<????) 

ee_buf 


dw 64 dup(?) 

; eeproB write buffer 

115 






116 




org 500h 


117 0500 

0100*(??) 

tx^queue 

db 256 dup(?) 

; xnit char output queue (256-aligned) 

118 0600 

0100*(??) 

rx_queue 

db 256 dup(?) 

; rev char input queue (256-aligned) 

119 






120 0700 


wree_raa 

label FAR 

; this space used for wree subroutine 

121 0700 

0100*<??) 



db lOOh dupC?) 


122 






123 0800 

0100*(????) 



dw lOOh dup (?) 

; 512 bytes of stack space 

124 OAOO 


stack_L 


label WORO 


125 OAOO 


OATA 

ends 



126 






127 


/ 




128 0000 


CODE 

segnent 



129 



assume 

cs:C00E, dsrOATA, es: 

OATA 

130 






131 


/ 



— 

132 


/ 

Startup code - reset entry point 

133 


/ 



— 

134 






135 0000 


Start 

proc 

FAR 


136 






137 


/ 

set up segnent registers 


138 






139 0000 

FA 


cli 


; Oisable external interrupts 

140 0001 

FC 


cld 


; Clear direction flag si,di increase 

141 0002 

B8 0000s 


nov 

ax, OATA 


142 0005 

8E D8 


■ov 

ds, ax 


143 0007 

8E 00 


MV 

ss, ax 


144 0009 

8E CO 


BOV 

es, ax 


145 OOOB 

B8 OAOOr 


BOV 

ax, offset stack_L 


146 OOOE 

88 EO 


BOV 

sp, ax 


147 0010 

33 EO 


xor 

bp, bp 

;bp=0 No errors detected yet 

148 






149 


/ 

test Oa 

- RAH1 test 


150 0012 

88 0000 

testOa: 

BOV 

ax, RAMI 


151 0015 

8E CO 


BOV 

es, ax 


152 0017 

88 S5AA 


BOV 

ax, Tpttrn 


153 001A 

89 8000 


BOV 

cx, 8000h 

;32Kwords to be tested 

154 001 D 

33 FF 


xor 

di, di 


155 001F 

33 F6 


xor 

si, si 


156 0021 

F3> A8 


rep 

stosw 

; write to all 32Kwords 

157 0023 

89 8000 


BOV 

cx, 8000h 


158 0026 

F3> AF 


repe 

scasw 

;coBpare with what's in ax 

159 0028 

74 03 


je 

testOb 


160 002A 

83 CO 01 


or 

bp, 1 



test Ob - RAM2 test 


Use or diadoaur* of theae SBIR data ia aubject to the reatriction on the title page of thia report. 



Turbo AssenbLer Version 2.02 11/25/92 16:43:26 Page 4 

ccd.asa 


163 0020 

B8 2000 

testOb: sov 

ax, RAN2 


164 0030 

8E CO 

BOV 

es, ax 


165 0032 

B8 55AA 

BOV 

ax, Tpttrn 


166 0035 

B9 8000 

BOV 

cx, 8000H 

;32Kwords to be tested 

167 0038 

33 FF 

xor 

di, d1 


168 003A 

33 F6 

xor 

ill 


169 003C 

F3> AB 

rep 

stosw 

; write to all 32Kwords 

170 003E 

B9 8000 

BOV 

cx, 8000h 


171 0041 

F3> AF 

repe 

scasw 

; compare with what's in ax 

172 0043 

74 04 

je 

testia 


173 0045 

81 CD 0400 

or 

bp, 400h 


174 





175 


; test 

la - RAH1 test 



176 


177 0049 

B8 0000 

testia: bov 

ax, RAH1 


178 004C 

8E CO 

BOV 

es, ax 


179 004E 

B8 55AA 

BOV 

ax, Tpttrn 


180 0051 

F7 00 

not 

ax 


181 0053 

B9 8000 

BOV 

cx, SOOOh 

;32Kwords to be tested 

182 0056 

33 FF 

xor 

di, di 


183 0058 

33 F6 

xor 

si, si 


184 005A 

F3> AB 

rep 

stosw 

;write to all 32Kwords 

185 005C 

B9 8000 

BOV 

cx, SOOOh 


186 005F 

F3> AF 

repe 

scasw 

; compare with what's in ax 

187 0061 

74 03 

je 

testib 


188 0063 

83 CD 02 

or 

bp, 2 


189 





190 


; test 1b 

- RAH2 test 


191 





192 0066 

B8 2000 

testib: BOV 

ax, RAM2 


193 0069 

8E CO 

BOV 

es, ax 


194 006B 

B8 55AA 

BOV 

ax, Tpttrn 


195 006E 

F7 DO 

not 

ax 


196 0070 

B9 8000 

BOV 

cx, SOOOh 

;32Kwords to be tested 

197 0073 

33 FF 

xor 

di, di 


198 0075 

33 F6 

xor 

si, si 


199 0077 

F3> AB 

rep 

stosw 

;write to all 32Kwords 

200 0079 

B9 8000 

BOV 

cx, SOOOh 


201 007C 

F3> AF 

repe 

scasw 

;coapare with what's in ax 

202 007E 

74 04 

je 

test2a 


203 0080 

81 CD 0800 

or 

bp, 800h 


204 





205 


; test 2a 

- byte access test RAH1 


206 0084 

8C DB 

test2a: bov 

bx, ds 

; preserve ds 

207 





208 0086 

B8 0000 

BOV 

ax, RAMI 


209 0089 

8E D8 

bov 

ds, ax 


210 008B 

B8 55AA 

BOV 

ax, Tpttrn 


211 008E 

F7 DO 

not 

ax 


212 0090 

B9 8000 

BOV 

cx, SOOOh 


213 0093 

33 F6 

xor 

si, si 


214 0095 

88 DO 

BOV 

dx, ax 


215 0097 

AC 

bytesta: lodsb 



216 0098 

3A C2 

cap 

al, dl 
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217 009A 

75 

07 

jne 

test2af 

218 009C 

AC 


Lodsb 


219 0090 

3A 

C6 

cap 

aL, dh 

220 009F 

El 

F6 

loope 

bytesta 

221 00A1 

74 

03 

je 

te$t2b 

222 00A3 

83 

CO 04 

test2af: or 

bp, 4 

223 





224 



; test 2b 

- byte acc< 

225 





226 00A6 

88 

2000 

test2b: aov 

ax, RAM2 

227 00A9 

8E 

08 

BOV 

ds, ax 

228 OOAB 

88 

55AA 

BOV 

ax, Tpttrn 

229 00A£ 

F7 

DO 

not 

ax 

230 OOBO 

89 

8000 

BOV 

cx, 8000h 

231 00B3 

33 

F6 

xor 

si, si 

232 00B5 

88 

00 

BOV 

dx, ax 

233 0087 

AC 


bytestb: Lodsb 


234 0088 

3A 

C2 

cap 

aL, dL 

235 OOBA 

75 

07 

jne 

test2bf 

236 OOBC 

AC 


Lodsb 


237 OOBD 

3A 

C6 

cap 

aL, dh 

238 OOBF 

El 

F6 

Loope 

bytestb 

239 00C1 

74 

04 

je 

test3a 

240 00C3 

81 

CO 1000 

test2bf: or 

bp, lOOOh 

241 





242 00C7 



test3a: 


243 





244 



; test 3a 

- address i 

245 





246 00C7 

88 

0000 

aov 

ax, RAH1 

247 OOCA 

8E 

CO 

aov 

es, ax 

248 OOCC 

8E 

08 

BOV 

ds, ax 

249 OOCE 

89 

8000 

BOV 

cx, 8000h 

250 0001 

33 

FF 

xor 

d1, d1 

251 0003 

88 

C7 

test3b: aov 

ax, d1 

252 0005 

F7 

DO 

not 

ax 

253 0007 

AB 


stosw 


254 0008 

E2 

F9 

Loop 

test3b 

255 





256 OOOA 

89 

8000 

aov 

cx, 8000h 

257 0000 

33 

F6 

xor 

si, si 

258 OOOF 

88 

06 

test3c: aov 

dx, si 

259 00E1 

AO 


Lodsw 


260 00E2 

F7 

00 

not 

ax 

261 00E4 

38 

C2 

cap 

ax, dx 

262 00E6 

El 

F7 

Loope 

test3c 

263 00E8 

74 

03 

je 

test3d 

264 OOEA 

83 

CD 08 

or 

bp, 8 

265 





266 



; test 3d 

- address i 

267 





268 OOEO 

88 

2000 

test3d: aov 

ax, RAH2 

269 OOFO 

8E 

CO 

aov 

es, ax 

270 0OF2 

8E 

08 

aov 

ds, ax 


Um or diacloouro of theae SBIR data ia aul^eet to tha reatrictlon on the title page of thia report. 



Turbo AsseabLer Version 2.02 
ccd.asa 


11/25/92 16:43:26 


Page 6 


271 00F4 

B9 8000 

sov 

cx, 8000h 

272 00F7 

33 FF 

xor 

di, di 

273 00F9 

8B C7 

test3e: sov 

ax, di 

274 QOFB 

F7 DO 

not 

ax 

275 OOFD 

AB 

stosw 


276 OOFE 

E2 F9 

loop 

test3e 

277 




278 0100 

B9 8000 

aov 

cx, 8000h 

279 0103 

33 F6 

xor 

si, si 

280 0105 

8B 06 

test3f: mov 

dx, si 

281 0107 

AO 

lodsw 


282 0108 

F7 DO 

not 

ax 

283 010A 

3B C2 

cap 

ax, dx 

284 01 OC 

El F7 

loope 

test3f 

285 01 OE 

74 04 

je 

test3g 

286 0110 

81 CO 2000 

or 

bp, 2000h 

287 




288 0114 

8E OB 

test3g: sov 

ds, bx ; restore 

289 




290 


; Leave aeqx>ry zeroed 

291 




292 0116 

B8 0000 

fflOV 

ax, RAN1 

293 0119 

8E CO 

DOV 

es, ax 

294 01 IB 

B9 8000 

BOV 

cx, SOOOh 

295 011E 

33 CO 

xor 

ax, ax 

296 0120 

8B F8 

BOV 

di, ax 

297 0122 

F3> AB 

rep 

stosu 

298 




299 0124 

B8 2000 

BOV 

ax, RAH2 

300 0127 

8E CO 

BOV 

es, ax 

301 0129 

B9 8000 

BOV 

cx, SOOOh 

302 012C 

33 CO 

xor 

ax, ax 

303 012E 

8B F8 

BOV 

di, ax 

304 0130 

F3> AB 

rep 

stosw 

305 




306 


; restore es 


307 




308 0132 

B8 0000s 

BOV 

ax, DATA 

309 0135 

8E CO 

BOV 

es, ax 

310 




311 


; Copy interrupt vector table froo ROH to R/ 

312 




313 0137 

IE 

push 

ds 

314 0138 

BE 07E2r 

BOV 

si, OFFSET roaivt 

315 013B 

OE 

push 

cs 

316 013C 

IF 

pop 

ds 

317 013D 

BF 0020r 

BOV 

di, OFFSET paBivt 

318 0140 

B9 0020 

BOV 

cx, 32 

319 0143 

F3> A5 

rep 

aovsw 

320 0145 

IF 

pop 

ds 

321 




322 


; test 4 

- 8259 interrupt controller test 

323 




324 0146 

BA 1100 

BOV 

dx, ICOO ; 8259 port 0 
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325 0149 BO 13 

326 014B EE 

327 014C BA 1102 

328 014F BO 08 

329 0151 EE 

330 0152 BO 01 

331 0154 EE 

332 0155 EC 

333 0156 OA CO 

334 0158 74 03 

335 01 5A 83 CD 10 

336 0150 BO FF 

337 015F EE 

338 0160 32 CO 

339 0162 EC 

340 0163 3C FF 

341 0165 74 03 

342 0167 83 CD 10 

343 

344 

345 

346 016A BA 1206 

347 016D BO 92 

348 016F EE 

349 0170 32 CO 

350 0172 EC 

351 0173 3C 92 

352 0175 74 03 

353 0177 83 CD 20 

354 

355 

356 

357 017A BA 1506 

358 017D BO 30 

359 017F EE 

360 0180 BO 74 

361 0182 EE 

362 0183 BA 1502 

363 0186 B8 FFFF 

364 0189 EE 

365 01 8A 8A C4 

366 018C EE 

367 018D BO B6 

368 018F BA 1506 

369 0192 EE 

370 0193 BA 1504 

371 0196 B8 004E 

372 0199 EE 

373 019A 8A C4 

374 019C EE 

375 

376 

377 

378 01 9D EC 


BOV 

al/ 13h 

; ICUl: edge trig, sngl, icw4 

out 

dX/ al 


BOV 

dx, IC01 

; 8259 port 1 

BOV 

al^ 8 

; 1CU2: t=8 (addr = 20h) 

out 

dx^ al 

; ICW4: no sfna, non buffered, normal eoi, 86 

BOV 

al, 1 

out 

dx^ al 


in 

al, dx 

; read Bask reg 

or 

al, al 

; should be zero 


test4a 


or 

bp, lOh 


test4a: bov 

al, Offh 

; now set all Bask bits 

out 

dx, al 


xor 

al, al 


in 

al, dx 


CBp 

al, Offh 


je 

tests 


or 

bp, lOh 


; test 

5 - 8255 PPI test 


test5 : BOV 

dx, PP103 


BOV 

al, 92h 

; A,B Bode 0 input; C mode 0 output 

out 

dx, al 


xor 

al, al 


in 

al, dx 

; read back mode 

CBP 

al, 92h 

; did it stick? 

je 

test6 


or 

bp, 20h 


; test 

6 > 8254 PIT test 


test6: BOV 

dx, PIT03 

; port 3 = control port 

BOV 

al, 30h 

; counter 0, Isb+Bsb, Bode 0 

out 

dx, al 


BOV 

al, 74h 

; counter 1, Isb+Bsb, Bode 2 

out 

dx, al 


BOV 

dx, P1T01 


BOV 

ax, Offffh 

; count = 65535 (input 0.66MHz, output 10.2Hz) 

out 

dx, al 


BOV 

al, ah 


out 

dx, al 


BOV 

al, 066h 

; counter 2, Isb+Bsb, mode 3 

BOV 

dx, PIT03 

; output to control port 

out 

dx, al 


BOV 

dx, PIT02 


BOV 

ax, BndRD9 

; 9600kHz baud rate 

out 

dx, al 

; set lo byte 

BOV 

al, ah 


out 

dx, al 

; set hi byte 
; count = 96 for 15MHz 
; count = 32 for 5HHz 

; count = 26 (input 4MHz, output 153.846KHz) 

in 

al, dx 

; now test if counter 2 is counting 
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379 01 9E 

8A 

m 

o 

BOV 

ah/ al 

380 01A0 

EC 


in 

al/ dx 

381 01 A1 

3A 

EO 

cap 

ah/ al 

382 01 A3 

75 

03 

jne 

test7 ; counts differ/ it's working 

383 01A5 

83 

CD 40 

or 

bp/ 40h 

384 





385 



; test 7 

- 8251 UART test 

386 





387 01 A8 

BA 

1302 

test7: BOV 

dx, UART01 

388 01 AB 

32 

CO 

xor 

al/ al 

389 01 AD 

EE 


out 

dX/ al 

390 01 AE 

EE 


out 

dX/ al 

391 01AF 

EE 


out 

dX/ al 

392 01 BO 

BO 

40 

BOV 

al/ 40h ; internal reset 

393 01 B2 

EE 


out 

dX/ al 

394 01 B3 

BO 

6E 

BOV 

al/ 6eh ; 16x (9600 baud), 8 bitS/ no parity 1 j 

395 



; BOV 

al/ 6Dh ; 1x/ 8 bitS/ no parity/ 1 stop 

396 01 B5 

EE 


out 

dX/ al 

397 01 B6 

BO 

37 

BOV 

al/ 37h ; rtS/ err reset/ rev ena/ dtr/ xat ena 

398 01 B8 

EE 


out 

dX/ al 

399 01 B9 

EC 


in 

al/ dx ; get status reg 

400 01 BA 

A8 

38 

test 

al/ 38h ; test for FE, OE, PE 

401 01 BC 

74 

04 

jz 

test7a ; jmp of none are set 

402 01 BE 

81 

CD 0080 

or 

bp, 80h ; one or more bits were set 

403 01 C2 

A8 

80 

test7a: test 

al/ 80h ; test for DSR bit 

404 01 C4 

75 

04 

jnz 

test7x ; if nz, OSR active 

405 01 C6 

81 

CD 0200 

or 

bp, 200h ; set to show DSR inactive 

406 01 CA 

24 

05 

test7x: and 

al, 5 ; test for TxE, TxRdy 

407 01 CC 

3C 

05 

cap 

al/ 5 

408 01 CE 

74 

04 

je 

test7b ; jap if all set 

409 0100 

81 

CD 0080 

or 

bp/ 80h ; one or aore bits were not set 

410 0104 

BA 

1300 

testTb: aov 

dX/ UARTOO 

411 0107 

F7 

C5 0200 

test 

bp, 200h ; is OSR active? 

412 01 OB 

75 

OF 

jnz 

test7c ; n — don't send char (not debug aode) 

413 0100 

BO 

00 

BOV 

al/ Odh ; send out <cr> 

414 01 OF 

EE 


out 

dx, al 

415 01 EO 

BA 

1302 

BOV 

dx, UART01 ; now read status 

416 01 E3 

EC 


in 

al/ dx 

417 01 E4 

A8 

04 

test 

al, 4 ; test for xatr rdy 

418 01 E6 

74 

04 

jz 

test7c ; ..should not be ready at this point 

419 01 E8 

81 

CO 0080 

or 

bp, 80h 

420 01 EC 



test7c: 


421 





422 



; Copy EEPRON access routine into RAM 

423 





424 01 EC 

IE 


push 

ds 

425 01 ED 

06 


push 

es 

426 01 EE 

BF 

0700r 

BOV 

di/ OFFSET wree_raa ; RAM area ds=RAa1 

427 01 FI 

BE 

0743r 

BOV 

si, OFFSET wree_roa ; ROM area es=EEPROMl 

428 01 F4 

B9 

009E 90 

BOV 

cx, wree_^len ; length of code 

429 01 F8 

8C 

C8 

BOV 

ax, cs 

430 01 FA 

8E 

08 

BOV 

ds, ax 

431 01 FC 

F3> A4 

rep 

aovsb ; ds:si — > es:di 

432 01 FE 

07 


pop 

es 
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433 01 FF 

IF 

pop 

ds 


434 





435 


; EEPR0M1 

access test 


436 





437 0200 

IE 

tests : push 

ds 


438 0201 

06 

push 

es 


439 0202 

B8 0000 

BOV 

ax, RAH1 


440 0205 

8E 08 

BOV 

ds, ax 


441 0207 

B8 FOOO 

BOV 

ax, EEPR0M1 


442 020A 

8E CO 

BOV 

es, ax 

; now ds — >RAM, es— >EEPR0M 

443 





4U 020C 

BF FFF6 

BOV 

di, Tst0fsE3 

; test word in Kernel above BOOT 

445 020F 

BE 045Cr 

BOV 

si, OFFSET ee_buf 


446 0212 

26: 88 05 

BOV 

ax, es:£di3 

; get pattern word 

447 0215 

F7 DO 

not 

ax 

; now invert it 

448 0217 

89 04 

BOV 

ds:Cs13, ax 

; place in RAM buffer 

U9 0219 

B9 0001 

BOV 

cx, 1 

; copy 1 word 

450 021 C 

CD 12 

int 

WRTEE^INT 

; store in EEPROM 

451 





452 021 E 

OB CO 

or 

ax, ax 

; test if stored 

453 0220 

74 04 

je 

testSa 


454 0222 

81 CO 8000 

or 

bp, 8000h 

; EEPROM KERNEL access 

455 





456 0226 

B8 FOOO 

testSa: bov 

ax, EEPROH1 


457 0229 

8E CO 

BOV 

es, ax 


458 022B 

BF 0000 

BOV 

di, TstOfsEI 

; Test Location in EEPROMI 

459 022E 

BE 045Cr 

BOV 

si, OFFSET ee_buf 


460 0231 

26: 88 05 

BOV 

ax, es:Cdi3 

; get pattern word 

461 0234 

50 

push 

ax 

; save it 

462 0235 

F7 00 

not 

ax 

; now invert it 

463 0237 

89 04 

BOV 

ds:Csi3, ax 

; place in RAM buffer 

464 0239 

B9 0001 

BOV 

cx, 1 

; copy 1 word 

465 023C 

CD 12 

int 

WRTEE_1NT 

; store in EEPROM 

466 





467 023E 

OB CO 

or 

ax, ax 

; test if stored 

468 0240 

74 04 

je 

testSb 


469 0242 

81 CO 0100 

or 

bp, lOOh 

; EEPROMI access 

470 





471 0246 

B8 FOOO 

testSb: bov 

ax, EEPR0H1 

; EEPROMI access 

472 0249 

8E CO 

BOV 

es, ax 


473 024B 

BF 0000 

BOV 

di, TstOfsEI 

; location to restore 

474 024E 

58 

pop 

ax 

; get old value 

475 024F 

89 04 

BOV 

ds:tsi], ax 

; place old val in RAM buffer 

476 0251 

B9 0001 

BOV 

cx, 1 


477 0254 

CD 12 

int 

WRTEE_INT 

; RESTORE EEPROM 

478 





479 0256 

B8 0000 

testSc: BOV 

ax, EEPROH2 


480 0259 

8E CO 

BOV 

es, ax 


481 025B 

BF 0000 

BOV 

di, Tst0fsE2 

; Test location in EEPR0H2 

482 02SE 

BE 045Cr 

BOV 

si, OFFSET ee_buf 


483 0261 

26: 8B 05 

BOV 

ax, es:Cdi3 

; get pattern word 

484 0264 

50 

push 

ax 

; save it 

485 0265 

F7 00 

not 

ax 

; now invert it 

486 0267 

89 04 

BOV 

ds:Csi], ax 

; place in RAM buffer 
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487 0269 

B9 0001 

BOV 

cx^ 1 

; copy 1 word 

488 026C 

CO 12 

int 

WRTEE_INT 

; store in EEPROM 

489 





490 026E 

OB CO 

or 

ax, ax 

; test if stored 

491 0270 

74 04 

je 

tested 


492 0272 

81 CO 4000 

or 

bp, 4000h 

; EEPR0H2 access 

493 





494 0276 

B8 DOOO 

testBd: mov 

ax, EEPR0M2 


495 0279 

8E CO 

o»v 

es, ax 


496 027B 

BF 0000 

mov 

di, Tst0fsE2 

; Location to restore 

497 027E 

58 

pop 

ax 

; get old value 

498 027F 

89 04 

BOV 

ds:Csi], ax 

; place old val in RAH buffer 

499 0281 

B9 0001 

BOV 

cx, 1 


500 0284 

CD 12 

int 

URTEE_INT 

; RESTORE EEPROH 

501 





502 0286 

07 

pop 

es 


503 0287 

IF 

pop 

ds 


504 





505 


; Set up pointers and variables 


506 





507 0288 

B8 0600r 

BOV 

ax, OFFSET rx_queue 

; init rev queue pointers 

508 028B 

A3 0400r 

BOV 

rx_inp, ax 

; (to empty state) 

509 028E 

A3 04Q2r 

BOV 

rx_outp, ax 


510 0291 

B8 0500r 

BOV 

ax, OFFSET tx^queue 

; init xmt queue pointers 

511 0294 

A3 0404r 

BOV 

tx_inp, ax 

; (to empty state) 

512 0297 

A3 0406r 

BOV 

tx^outp, ax 


513 029A 

89 2E 0408r 

BOV 

pwrup_err, bp 

; store powerup test results 

514 





515 


; Enable interrupts 


516 





517 029E 

BO E4 

BOV 

al, 0e4h 

; unBBsk rxrdy, txrdy, tioebase, timer 

518 02A0 

BA 1102 

BOV 

dx, IC01 

; output to 8259 

519 02A3 

EE 

out 

dx, al 


520 02A4 

FB 

sti 



521 





522 


; Wait for 'esc' character froa serial port... 

523 


; if it 

arrives, user wants Bonitor control. 

524 


; If it 

does not, transfer to user prograa. 

525 





526 02A5 

F7 C5 0200 

test 

bp, 200h 

; is DSR active (debug port)? 

527 



monitr 

; y — go Straight to monitor 

528 02A9 

EB 10 90 

jsp 

Bonitr 


529 02AC 

2B C9 

sub 

cx, cx 

; loop counter 

530 02AE 

CD 10 

uaitec: int 

6ETCH_INT 

; get char from serial port 

531 02B0 

OA E4 

or 

ah, ah 

; did we get one? 

532 02B2 

EO FA 

loopne waitec 

; jap if not, looping 

533 02B4 

3C IB 

cap 

al, 27 

; did we get an esc char? 

534 02B6 

74 03 

je 

Bonitr 

; jap if so, enter aonitor 

535 02B8 

E9 0172 

jap 

gouser 

; go to user program 

536 





537 


; Write 

identification Bessage 


538 





539 02BB 

BA 0822r 

Bonitr: bov 

dx, OFFSET idasg 


540 02BE 

OE 

push 

cs 
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541 02BF 

07 

pop 

es 



542 02C0 

E8 OOCE 

call 

putBsg 



543 02C3 

BA 0841r 

BOV 

dX/ OFFSET idasg2 



544 02C6 

OE 

push 

cs 



545 02C7 

07 

pop 

es 



546 02C8 

E8 00C6 

call 

putasg 



547 






548 


; Print diagnostic results 



549 






550 02CB 

88 2E 0408r 

mov 

bp, pwrup_err 



551 02CF 

B9 0010 

BOV 

cx, 16 

/ 

test 16 bits 

552 02D2 

BF 0001 

BOV 

di, 1 



553 02D5 

BB 0A02r 

BOV 

bx, OFFSET bitasg 



554 0208 

OE 

push 

cs 



555 0209 

07 

pop 

es 



556 020A 

2E: 88 17 

diagOO: bov 

dX/ cs:Cbx] 

/ 

output test naae 

557 0200 

E8 00B1 

call 

putasg 



558 02EO 

85 EF 

test 

bp, di 

/ 

check pass/fail bit 

559 02E2 

74 2F 

32 

diagOI 

/ 

2 — passed 

560 02E4 

83 F9 08 

cap 

cx, EEPnl 



561 02E7 

75 08 

jne 

diag03 



562 02E9 

BA 08A7r 

BOV 

dx, OFFSET denn 



563 02EC 

E8 00A2 

call 

putasg 



564 02EF 

EB 28 

jap 

SHORT diag02 



565 02F1 

83 F9 02 

diag03: cap 

cx, EEPn2 



566 02F4 

75 08 

jne 

diag04 



567 02F6 

BA 08A7r 

BOV 

dx, OFFSET denn 



568 02F9 

E8 0095 

call 

putasg 



569 02FC 

EB IB 

jap 

SHORT diag02 



570 02FE 

83 F9 01 

diag04: cap 

cx, EEPn3 



571 0301 

75 08 

jne 

diagf 



572 0303 

BA 08A7r 

BOV 

dx, OFFSET denn 



573 0306 

E8 0088 

call 

putasg 



574 0309 

EB OE 

j«P 

SHORT diag02 



575 030B 

BA 089Cr 

diagf: bov 

dx, OFFSET fail 



576 030E 

E8 0080 

call 

putasg 

/ 

print fail message 

577 0311 

EB 06 

j»P 

SHORT diag02 

/ 

continue with next test 

578 0313 

BA 0891r 

diagOI: bov 

dx, OFFSET pass 



579 0316 

E8 0078 

call 

putasg 

/ 

print pass message 

580 0319 

83 C3 02 

diag02: add 

bx, 2 

/ 

continue 

581 031 C 

D1 E7 

shl 

di, 1 



582 031 E 

E2 BA 

loop 

diagOO 



583 






584 






585 


; Enter 

infinite wait 



586 






587 0320 


xxx: 




588 0320 

BA 087Fr 

BOV 

dx, OFFSET prompt 



589 0323 

OE 

push 

cs 



590 0324 

07 

pop 

es 



591 0325 

E8 0069 

call 

putasg 



592 0328 

BA 040Ar 

BOV 

dx, OFFSET Bsgbuf 



593 0328 

B9 0050 

BOV 

cx, 80 



594 032E 

E8 0007 

call 

getasg 
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595 0331 

E8 0090 

call 

process 


596 0334 

EB EA 

3«P 

XXX 


597 





598 0336 


start endp 



599 





600 


/ 


— 

601 


; Read 

message from serial port 

602 


/ — — — 


— 

603 


; Call 

with: 


604 


t 

ds:dx — > buffer to 

receive string 

60S 


/ 

cx - aaxiauB size of receive buffer (min 2) 

606 


; Returns: 


607 


/ 

ds:dx — > unchanged 


608 


/ 

cx = actual number of chars read (incl CR) 

609 





610 0336 

90 

nop 



611 0337 

90 

nop 



612 0338 


getssg proc 

NEAR 


613 


assume ds:DATA, es: nothing 


614 





615 0338 

56 

push 

si 


616 0339 

57 

push 

di 


617 033A 

52 

push 

dx 


618 033B 

IE 

push 

ds 


619 033C 

06 

push 

es 


620 





621 033D 

8C D8 

mov 

axy ds 


622 033F 

8E CO 

BOV 

es, ax 


623 0341 

8B FA 

BOV 

di, dx 

; now es:di — > buffer 

624 





625 0343 

B8 0000s 

BOV 

ax, DATA 


626 0346 

8E D8 

BOV 

ds, ax 


627 0348 

88 IE 0402r 

BOV 

bx, rx_outp 

; now ds:bx — > rev queue 

628 





629 034C 

49 

dec 

cx 

; leave one extra for terminating 

630 





631 034D 

3B 1E 0400r 

getaOl: cap 

bx, rx_inp 

; queue empty? 

632 0351 

74 FA 

je 

getaOl 

; y — wait for char 

633 0353 

8A 07 

BOV 

al, Cbxl 


634 0355 

FE C3 

inc 

bl 


635 0357 

3C 00 

cap 

al, 0 

; NUL — turbo debugger packet 

636 0359 

75 03 

jne 

geta02 


637 0358 

E9 01F0 

jnp 

xdeb 

; go transfer to debugger 

638 03SE 

3C OD 

geta02: cap 

al, Odh 

; carriage return? 

639 0360 

74 10 

je 

getmlO 

; y — end of message 

640 0362 

3C 7F 

cap 

al, 7fh 

; delete key? 

641 0364 

75 14 

jne 

geta04 

; n — normal char 

642 0366 

3B FA 

cap 

di, dx 

; at beginning of buffer already? 

643 0368 

74 E3 

je 

getaOl 

; jap if so 

644 036A 

4F 

dec 

di 

; back up one char 

645 0366 

49 

dec 

cx 


646 036C 

BO 08 

BOV 

al, 8 

; send bs-s-bs sequence 

647 036E 

CD 11 

int 

PUTCH_INT 


648 0370 

BO 20 

BOV 

al, ■ • 
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649 0372 

CO 11 

int 

PUTCH_1NT 


650 0374 

80 08 

mov 

al, 8 


651 0376 

CD 11 

int 

PUTCH_INT 


652 0378 

E8 03 

jap 

getaOl 


653 037A 

AA 

getm04: stosb 


/ 

654 037B 

CO 11 

int 

PUTCH_INT 

/ 

655 037D 

E2 CE 

getn05 : loop 

getmOl 


656 





657 037F 

AA 

getfflIO: stosb 


/ 

658 0380 

89 IE 0402r 

mov 

rx_outp, bx 

/ 

659 0384 

88 CF 

mov 

CX/ di 

/ 

660 0386 

28 CA 

sub 

cx, dx 


661 0388 

32 CO 

xor 

al, al 


662 038A 

AA 

stosb 


/ 

663 0388 

07 

pop 

es 


664 038C 

IF 

pop 

ds 


665 038D 

5A 

pop 

dx 


666 038E 

5F 

pop 

di 


667 038F 

SE 

pop 

si 


668 0390 

C3 

ret 



669 0391 


getasg endp 



670 





671 





672 


/ 



673 


; Output message to serial port 


674 


/ 



675 


; Call with: 


676 


/ 

es:dx — > null-terainated 

677 


/ 



678 


; All regs except ax preserved 


679 


/ 



680 0391 


putmsg proc 

NEAR 


681 


assume 

es:0ATA, ds:nothing 


682 





683 0391 

S3 

push 

bx 


684 0392 

56 

push 

si 


685 0393 

IE 

push 

ds 


686 0394 

06 

push 

es 


687 0395 

8C CO 

mov 

ax, es 


688 0397 

8E 08 

mov 

ds, ax 


689 0399 

88 F2 

mov 

si, dx 

/ 

690 0398 

88 OOOOs 

mv 

ax, DATA 


691 039E 

8E CO 

mov 

es, ax 


692 03A0 

26: 88 IE 0404r 

mov 

bx, tx_inp 

/ 

693 03A5 

AC 

msgoOl : lodsb 



694 03A6 

OA CO 

or 

al, al 


695 03A8 

74 OE 

j2 

msgo04 


696 03AA 

26: 88 07 

mov 

es:Cbx], al 


697 03AD 

FE C3 

inc 

bl 


698 03AF 

26: 38 IE 0406r 

msgo02: cmp 

bx, tx_outp 

/ 

699 0384 

74 F9 

je 

asgo02 

/ 

700 0386 

EB ED 

jap 

asgoOl 


701 





702 0388 

26: 89 IE 0404r 

msgo04: mov 

tx_inp, bx 



store in es:Cdi++3 
echo it 


save CR SOd 

save new output pointer 
calculate number of rcv'd chars 


store terminating NUL 


string 


now ds:si — > message 
now es;bx — > transmit queue 


queue full? 

y — wait here until slot avail 
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703 03BD 

CO 

13 


int 

TXRDY_S_INT 



704 03BF 

07 


asgo06: 

pop 

es 



705 03C0 

IF 



pop 

ds 



706 03C1 

5E 



pop 

si 



707 03C2 

5B 



pop 

bx 



708 03C3 

C3 



ret 




709 03C4 



putosg 

endp 




710 








711 




assume 

ds:DATA, es:DATA 



712 








713 



f 

— 

— 



714 



/ 

Process coaaand message 



715 



/ 





716 03C4 



process proc 

NEAR 



717 








718 03C4 

BO 

00 


BOV 

al^ Odh 



719 03C6 

CD 

11 


int 

PUTCH_INT 



720 03C8 

BO 

OA 


BOV 

al/ Oah 



721 03CA 

CD 

11 


int 

PUTCH_INT 



722 








723 03CC 

8B 

F2 


BOV 

si/ dx 



724 03CE 

AC 



Lodsb 


/ 

get cod char 

725 03CF 

oc 

20 


or 

al, • • 

/ 

convert to lower case 

726 








727 0301 

3C 

34 

pr040: 

cop 

al/ '4' 



728 0303 

75 

04 


jne 

pr042 



729 0305 

E8 

0192 


call 

Br40 

/ 

change Baud rate to 40kHz 

730 0308 

C3 



ret 




731 








732 0309 

3C 

39 

pr042: 

CBp 

al, ‘9' 



733 030B 

75 

04 


jne 

pr044 



734 0300 

E8 

01 C3 


call 

Br9 

/ 

change Baud rate to 9.6kHz 

735 03£0 

C3 



ret 




736 








737 03E1 

3C 

31 

pr044: 

cop 

al, ‘1' 



738 03E3 

75 

04 


jne 

pr046 



739 03E5 

E8 

DICE 


call 

Br115 

/ 

change Baud rate to 115kHz 

740 03E8 

C3 



ret 




741 








742 03E9 

3C 

32 

pr046: 

cop 

rv 



743 03EB 

75 

04 


jne 

pr048 



744 03E0 

E8 

0180 


call 

Br2 

/ 

change Baud rate to 19.2kHz 

745 03F0 

C3 



ret 




746 








747 03F1 

3C 

38 

pr048: 

cap 

al/ '8' 



748 03F3 

75 

04 


jne 

prOSO 



749 03F5 

E8 

0198 


call 

Br8 

/ 

change Baud rate to 80kHz 

750 03F8 

C3 



ret 




751 








752 03F9 

3C 

70 

prOSO: 

cop 

»l, ’P' 

/ 

p — print diagnostics 

753 03FB 

75 

03 


jne 

pr052 



754 03FD 

E9 

FEBB 


j«P 

Bonitr 

/ 

restart Bonitor 

755 








756 0400 

3C 

72 

pr052: 

CBp 

al,'r' 

/ 

Hard Reset from EEPR0N1 
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757 0402 

75 05 


jne 

pr054 



758 



IDEAL 




759 0404 

EA FOOOFFFO 


JHP 

FAR 0F000h:0FFF0h 



760 



HASH 




761 







762 0409 

3C 73 

pr054: 

cap 

al, ‘s' 



763 040B 

75 05 


jne 

pr060 



764 



IDEAL 




765 040D 

EA DOOOFFFO 


JHP 

FAR OOOOOh:OFFFOh 



766 



HASH 




767 







768 0412 

3C 77 

pr060: 

cap 

al, ‘w‘ 

/ 

w — write user prog address 

769 0414 

75 00 


jne 

pr065 



770 0416 

E8 0180 


call 

hex2bin 

i 

get segaent 

771 0419 

88 08 


aov 

bX/ ax 



772 0418 

46 


inc 

si 

/ 

skip tera char 

773 041C 

E8 01AA 


call 

hex2bin 

/ 

get offset 

774 041 F 

E8 0072 


call 

write^useradd 

/ 

invoke routine 

775 0422 

C3 


ret 




776 







777 0423 

3C 67 

pr065: 

cap 

at, 'g* 

/ 

g — go to user program 

778 0425 

75 29 


jne 

pr070 



779 0427 

8A 04 


aov 

al, Csi3 

/ 

get next cad char 

780 0429 

3C 00 


cep 

al, Odh 

/ 

is it CR (no args)? 

781 0428 

75 17 


jne 

pr066 

/ 

jap if not 

782 042D 

06 

gouser: 

push 

es 



783 042E 

56 


push 

si 



784 042F 

88 FOOO 


aov 

ax, UsrAseg 



785 0432 

8E CO 


BOV 

es, ax 



786 0434 

BE OFFC 


BOV 

si, UsrAofs 

/ 

es:si points to useradress of set 

787 0437 

26: 88 04 


aov 

ax, es:si 

/ 

load user adress ofset 

788 043A 

46 


inc 

si 



789 0438 

46 


inc 

si 

/ 

segment is 2 bytes after ofset 

790 043C 

26: 88 1C 


aov 

bx, es:si 

/ 

load user adress segment 

791 043F 

5E 


pop 

si 



792 0440 

07 


pop 

es 



793 0441 

E8 67 90 


jap 

go^useradd 

/ 

use eeprm user entry point 

794 







795 0444 

E8 0182 

pr066: 

call 

hex2bin 

r 

get next number (seg) 

796 0447 

88 08 


BOV 

bx, ax 



797 0449 

46 


inc 

si 

/ 

skip 

798 044A 

E8 017C 


call 

hex2bin 

i 

get next number (off) 

799 0440 

E8 58 90 


jap 

go^useradd 



800 







801 0450 

3C 64 

pr070: 

cap 

al, 'd' 



802 0452 

75 10 


jne 

pr080 



803 0454 

E8 0172 


call 

hex2bin 



804 0457 

50 


push 

ax 

/ 

save seg 

805 0458 

8A 04 


BOV 

al, Csi] 

/ 

get next char 

806 045A 

3C 00 


cap 

al, Odh 

/ 

is it CR (no length) 

807 045C 

75 06 


jne 

pr072 



808 045E 

89 0008 


BOV 

cx, 8 

} 

length := 8 if not speciffied 

809 0461 

E8 07 90 


j«P 

pr074 



810 0464 

46 

pr072: 

inc 

si 

/ 

skip tera char 
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811 0465 

E8 0161 


call 

hex2bin ; get length 

812 0468 

8B C8 


BOV 

cx, ax 

813 046A 

58 

pr074: 

pop 

ax 

814 0468 

8E CO 


BOV 

es^ ax 

815 046D 

E8 0030 


call 

duapaeB 

816 0470 

C3 


ret 


817 





818 0471 

3C 6C 

pr080: 

cmp 

al, '1' 

819 0473 

75 18 


jne 

pr099 

820 0475 

E8 0151 


call 

hex2bin ; convert next number to binary 

821 0478 

8E CO 


nov 

es, ax ; keep segment 

822 047A 

AC 


lodsb 

823 0478 

3C 00 


cap 

al, Odh ; did cr terainate line? 

824 047D 

75 05 


jne 

pr082 ; jmp if not, get byte count 

825 047F 

B9 0080 


BOV 

cx, 128 ; no count specified, use 128 

826 0482 

EB 05 


j*P 

SHORT pr084 

827 0484 

E8 0142 

pr082: 

call 

hex2bin ; convert next nuaber to binary 

828 0487 

8B CB 


BOV 

cx, ax 

829 0489 

E8 006C 

pr084: 

call 

prog load ; xfer to program loader 

830 048C 

C3 


ret 


831 





832 048D 

OE 

pr099: 

push 

cs 

833 048E 

07 


pop 

es 

834 048F 

BO 3F 


BOV 

al, '?' 

835 0491 

CO 11 


int 

PUTCH^INT 

836 0493 

C3 


ret 


837 0494 


process 

endp 


838 





839 


/ 



840 


/ 

Write user entry point address to EEPROM 

841 


/ 



842 


/ 

bx = 

segment 

843 


/ 

ax = 

offset 

844 


/ 



845 0494 


urite^useradd proc NEAR 

846 0494 

BE 045Cr 


BOV 

si, OFFSET ee_buf ; ds:si ~> eeprom write buf 

847 0497 

89 04 


BOV 

Csil, ax ; copy segment and offset 

848 0499 

89 5C 02 


BOV 

Csi+2^, bx 

849 049C 

B8 FOOO 


BOV 

ax, UsrAseg 

850 049F 

8E CO 


BOV 

es, ax 

851 04A1 

BF OFFC 


BOV 

di, UsrAofs ; es:di — > user addr FD0O:0FFC 

852 04A4 

B9 0002 


BOV 

cx, 2 ; write 2 words 

853 04A7 

CO 12 


int 

WRTEE^INT 

854 04A9 

C3 


ret 


855 04AA 


urite^useradd endp 

856 





857 


/ 



858 


/ 

Transfer control to user program 

859 


/ 



860 


/ 

bx = 

segment 

861 


/ 

ax * 

offset 

862 


/ 



863 04AA 


go_useradd proc FAR 

864 04AA 

53 


push 

bx 
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865 04AB 

50 

push 

ax 

866 04AC 

CB 

ret 


867 04AO 


go_useradd endp 


868 




869 




870 


/ 


871 


; Henory Dunper 

872 


/ 

— 

873 




874 04AO 


duropnem proc 

NEAR 

875 04AO 

8C CO 

IDOV 

ax, es 

876 04AF 

51 

dapOOl: push 

cx 

877 0480 

BE 040Ar 

BOV 

si, OFFSET Bsgbuf 

878 0483 

E8 014F 

call 

bin2hex 

879 0486 

06 

push 

es 

880 0487 

IE 

push 

ds 

881 0488 

07 

pop 

es 

882 0489 

88 06 

BOV 

dx, si 

883 0488 

E8 FE03 

call 

putBsg 

884 048E 

07 

pop 

es 

885 048F 

80 3A 

BOV 

al, 

886 04C1 

32 E4 

xor 

ah, ah 

887 04C3 

CO 11 

int 

PUTCH_INT 

888 04C5 

80 20 

BOV 

al, ”■ 

889 04C7 

CO 11 

int 

PUTCH_1NT 

890 04C9 

89 0008 

BOV 

cx, 8 

891 04CC 

33 08 

xor 

bx, bx 

892 04CE 

26: 88 07 

dapOlO: bov 

ax, es:Cbx3 

893 0401 

E8 0131 

call 

bin2hex 

894 0404 

06 

push 

es 

895 0405 

IE 

push 

ds 

896 0406 

07 

pop 

es 

897 0407 

E8 FEB7 

call 

putBsg 

898 040A 

07 

pop 

es 

899 0408 

80 20 

BOV 

al, ■ • 

900 0400 

32 E4 

xor 

ah, ah 

901 040F 

CO 11 

int 

PUTCH_1NT 

902 04E1 

83 C3 02 

add 

CM 

903 04E4 

E2 E8 

loop 

dapOlO 

904 04E6 

88 0000 

BOV 

ax, Odh 

905 04E9 

CO 11 

int 

PUTCH_INT 

906 04E8 

80 OA 

BOV 

al, Oah 

907 04EO 

CD 11 

int 

PUTCH_INT 

908 04EF 

8C CO 

BOV 

ax, es 

909 04F1 

40 

inc 

ax 

910 04F2 

8E CO 

BOV 

es, ax 

911 04F4 

59 

pop 

cx 

912 04F5 

E2 88 

Loop 

dBpOOl 

913 04F7 

C3 

ret 


914 04F8 


duBpaes endp 


915 




916 


/ 


917 


; PrograB Loader 

918 


/ 
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919 ; Input; 

920 ; es — > segment address of start of prograa load 

921 ; cx = byte count (0-128) 

922 ; 

923 ; Receives binary data from serial port input, places in 

924 ; temporary buffer in RAH. Invokes EEPROH write routine. 

925 ; Issues error message to console if write error occurs. 

926 


927 04F8 


prog Load proc 

NEAR 



928 







929 04F8 

06 


push 

es 

/ 

save segment 

930 04F9 

51 


push 

cx 

/ 

save count 

931 04FA 

D1 E9 


shr 

cx, 1 

/ 

convert bytes to words 

932 04FC 

E3 23 


jcxz 

prl15 

/ 

word count 0 — skip word Loop 

933 04FE 

88 0000s 


mov 

ax, DATA 



934 0501 

8E CO 


mov 

es, ax 



935 0503 

8F 045Cr 


mov 

di, OFFSET ee_buf 

/ 

es:di — > ee_buf 

936 0506 

CD 10 

prLIO: 

int 

6ETCH_INT 

t 

get Low byte 

937 0508 

08 CO 


or 

ax, ax 



938 OSOA 

7C FA 


jL 

prllO 



939 050C 

8A D8 


mov 

bl, al 



940 OSOE 

CD 10 

prl12: 

int 

GETCH^INT 

/ 

get high byte 

941 0510 

08 CO 


or 

ax, ax 



942 0512 

7C FA 


jl 

prl12 



943 0514 

8A F8 


mov 

bh, al 

/ 

assemble bytes 

944 0516 

88 C3 


mov 

ax, bx 



945 0518 

81 FF 04DCr 


cap 

di, OFFSET ee_buf+128 

/ 

written 64 words yet? 

946 051 C 

73 01 


jae 

prl14 

/ 

jap if so, skip buffering 

947 051 E 

AB 


stosw 


/ 

put in buffer 

948 051 F 

E2 E5 

prl14: 

Loop 

prllO 



949 0521 

59 

prllS: 

pop 

cx 

/ 

restore count 

950 0522 

07 


pop 

es 

/ 

restore segment 

951 0523 

F7 Cl 0001 


test 

cx, 1 


byte count odd? 

952 0527 

74 OE 


j* 

prl17 

/ 

jap if not 

953 0529 

CD 10 

prl16: 

int 

GETCH^INT 

/ 

pick up odd char 

954 0528 

08 CO 


or 

ax, ax 



955 052D 

7C FA 


n 

prl16 



956 052F 

81 FF 04DCr 


CMp 

di, OFFSET ee_buf+128 



957 0533 

73 02 


jae 

prl17 



958 0535 

AB 


stosw 


/ 

store odd char 

959 0536 

41 


inc 

cx 

/ 

and make sure block count is even 

960 0537 

33 FF 

prl17: 

xor 

di, di 

/ 

es:di — > eeproa load address 

961 0539 

01 E9 


shr 

cx, 1 

/ 

convert bytes to words 

962 0538 

88 0000s 


mov 

ax, DATA 



963 053E 

8E D8 


mov 

ds, ax 



964 0540 

BE 045Cr 


mov 

si, OFFSET ee_buf 

/ 

ds:si — > ee__buf 

965 0543 

CD 12 


int 

URTEE^INT 

/ 

write to eeproa 

966 0545 

08 CO 


or 

ax, ax 

/ 

check return code 

967 0547 

74 11 


jz 

prl99 

/ 

zero, successful 

968 0549 

50 


push 

ax 

/ 

save return code 

969 054A 

BA 0886r 


mov 

dx, OFFSET wrterr 

/ 

print err aessage 

970 054D 

OE 


push 

cs 



971 054E 

07 


pop 

es 



972 054F 

E8 FE3F 


call 

putasg 
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973 0552 

58 


pop 

ax 

; retrieve error code 

974 0553 

F7 08 


neg 

ax 

; turn into positive number 

975 0555 

05 0030 


add 

ax, 'O' 

; convert to ascii 

976 0558 

CO 11 


int 

PUTCH^INT 

; append to err message 

977 OSSA 

C3 

prl99: 

ret 



978 






979 0558 


prog Load endp 



980 






981 


/ 




982 


/ 

Transfer to Turbo Debugger Remote Kernel 

983 


/ 




984 






985 0S5B 


xdeb 

proc 

NEAR 


986 0558 

FA 


cLi 



987 055C 

80 FF 


BOV 

al, Offh 

; mask all interrupts 

988 055E 

BA 1102 


BOV 

dx, 1C01 


989 0561 

EE 


out 

dx, al 


990 






991 






992 






993 0562 

88 FEOO 


BOV 

ax, TOstrt 

; xfer to Turbo Debug kernel 

994 





; 0fe00:0 (segment) 

995 0565 

SO 


push 

ax 


996 0566 

33 CO 


xor 

ax, ax 

; (offset) 

997 0568 

50 


push 

ax 


998 


/ 

sti 



999 0569 


temp 

proc 

FAR 


1000 0569 

CB 


ret 


; ..by doing a far return 

1001 056A 


temp 

endp 



1002 056A 


xdeb 

endp 



1003 






1004 056A 


Br40 

proc 

NEAR 


1005 






1006 056A 

FA 


cLi 



1007 0568 

BA 1506 


BOV 

dx, PIT03 

; Baud gen. control port 

1008 056E 

80 86 


BOV 

al, 0B6h 

; cntr2, Isb+asb, mode 3 

1009 0570 

EE 


out 

dx, al 


1010 0571 

BA 1504 


BOV 

dx, P1T02 

; cntr2 data 

1011 0574 

88 0014 


BOV 

ax, BndRD4 

; 40kHz Baud rate 

1012 0577 

EE 


out 

dx, al 

; set low byte 

1013 0578 

8A C4 


BOV 

al, ah 


1014 057A 

EE 


out 

dx, al 

; set hi byte 

1015 0578 

FB 


sti 



1016 






1017 057C 

C3 


ret 



1018 057D 


Br40 

endp 



1019 






1020 0570 


Br2 

proc 

NEAR 


1021 






1022 057D 

FA 


cli 



1023 057E 

BA 1506 


BOV 

dx, P1T03 

; Baud gen. control port 

1024 0581 

80 86 


BOV 

al, 0B6h 

; cntr2, Isb^-asb, mode 3 

1025 0583 

EE 


out 

dx, al 


1026 0584 

BA 1504 


BOV 

dx, PIT02 

; cntr2 data 
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1027 0587 

B8 0027 


BOV 

ax^ BndRD2 

; 19.2kHz Baud rate 

1028 058A 

EE 


out 

dx, al 

; set low byte 

1029 058B 

8A C4 


o»v 

al/ ah 


1030 058D 

EE 


out 

dx, al 

; set hi byte 

1031 058E 

FB 


sti 



1032 






1033 058F 

C3 


ret 



1034 0590 


Br2 

endp 



1035 






1036 0590 


Br8 

proc 

NEAR 


1037 






1038 0590 

FA 


cLi 



1039 0591 

BA 1506 


BOV 

dx, PIT03 

; Baud gen. control port 

1040 0594 

BO B6 


BOV 

al, 0B6h 

; cntr2, Isb+asb, aode 3 

1041 0596 

EE 


out 

dx, al 


1042 0597 

BA 1504 


BOV 

dx, PIT02 

; cntr2 data 

1043 059A 

B8 OOOA 


BOV 

ax, BndROS 

; 80kHz Baud rate 

1044 059D 

EE 


out 

dx, al 

; set low byte 

1045 059E 

8A C4 


BOV 

al, ah 


1046 05A0 

EE 


out 

dx, al 

; set hi byte 

1047 05A1 

FB 


sti 



1048 






1049 05A2 

C3 


ret 



1050 05A3 


Br8 

endp 



1051 






1052 05A3 


Br9 

proc 

NEAR 


1053 






1054 Q5A3 

FA 


cli 



1055 05A4 

BA 1506 


BOV 

dx, P1T03 

; Baud gen. control port 

1056 05A7 

BO B6 


BOV 

al, 0B6h 

; cntr2, Isb+nsb, Bode 3 

1057 05A9 

EE 


out 

dx, al 


1058 05AA 

BA 1504 


BOV 

dx, PIT02 

; cntr2 data 

1059 05A0 

B8 004E 


BOV 

ax, BndRD9 

; 9.6kHz Baud rate 

1060 05B0 

EE 


out 

dx, al 

; set low byte 

1061 05B1 

BA C4 


BOV 

al, ah 


1062 05B3 

EE 


out 

dx, al 

; set hi byte 

1063 05B4 

FB 


Sti 



1064 






1065 05B5 

C3 


ret 



1066 05B6 


Br9 

endp 



1067 






1068 05B6 


Br115 

proc 

NEAR 


1069 






1070 05B6 

FA 


cli 



1071 05B7 

BA 1506 


BOV 

dx, PIT03 

; Baud gen. control port 

1072 05BA 

BO B6 


BOV 

al, 066h 

; cntr2, Isbfasb, Bode 3 

1073 05BC 

EE 


out 

dx, al 


1074 05BD 

BA 1504 


BOV 

dx, PIT02 

; cntr2 data 

1075 05C0 

B8 0007 


BOV 

ax, BndRD115 

; 115kHz Baud rate 

1076 05C3 

EE 


out 

dx, al 

; set low byte 

1077 05C4 

8A C4 


BOV 

al, ah 


1078 05C6 

EE 


out 

dx, al 

; set hi byte 

1079 05C7 

FB 


sti 




1080 
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1081 05C8 

C3 


ret 


1082 0SC9 


Bril 5 

endp 


1083 





1084 


i 



1085 


t 

Convert hex to binary 

1086 


/ 



1087 


9 

input: 


1088 


9 


ds:si — > character string 

1089 


9 

output : 


1090 


9 


ds:si — > terminating char 

1091 


9 


ax = int, aax 16 bits 

1092 





1093 05C9 


hex2bin 

proc 

NEAR 

1094 05C9 

51 


push 

cx 

1095 05CA 

52 


push 

dx 

1096 05CB 

B1 04 


BOV 

cl, 4 

1097 05CD 

33 CO 


xor 

ax, ax 

1098 05CF 

8A 14 

hOlO: 

o»v 

dl, Csi] 

1099 0501 

80 CA 20 


or 

dl, ■ ■ 

1100 0504 

80 EA 30 


sub 

dl, 'O' 

1101 0507 

7C 19 


n 

h050 

1102 0509 

80 FA 09 


cap 

dl, 9 

1103 050C 

7E OO 


jte 

h030 

1104 050E 

80 EA 31 


sub 

dl, 'a'-'O* 

1105 05E1 

7C OF 


jL 

h050 

1106 05E3 

80 FA 05 


cap 

dl, 5 

1107 05E6 

7F OA 


jg 

hOSO 

1108 0SE8 

80 C2 OA 


add 

dl, 10 

1109 05EB 

D3 EO 

h030: 

shl 

ax, cl 

1110 05E0 

OA C2 


or 

al, dl 

1111 05EF 

46 


inc 

si 

1112 05F0 

EB DO 


jap 

hOlO 

1113 05F2 

5A 

h050: 

pop 

dx 

1114 05F3 

59 


pop 

cx 

1115 05F4 

C3 


ret 


1116 05F5 


hex2bin 

endp 


1117 





1118 


/ 



1119 


/ 

Convert binary to hex 

1120 


/ 



1121 


/ 

input: 


1122 


/ 


ax = binary int 

1123 


/ 


ds:si — > 5-byte buffer (4 

1124 


/ 

output: 


1125 


/ 


all regs except ax preserve 

1126 





1127 05F5 

30 31 32 33 34 35 36+ 

hextab 

db 

■0123456789ABCDEF' 

1128 

37 38 39 41 42 43 44+ 




1129 

45 46 




1130 0605 


bin2hex 

proc 

NEAR 

1131 0605 

53 


push 

bx 

1132 0606 

51 


push 

cx 

1133 0607 

52 


push 

dx 

1134 0608 

B9 0004 


BOV 

cx, 4 
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1135 060B 

BA 0F04 

■ov 

dx, 0f04h 



1136 060E 

03 FI 

add 

si/ cx 



1137 0610 

32 FF 

xor 

bh/ bh 



1138 0612 

88 3C 

BOV 

BYTE PTR Csi3, bh 



1139 0614 

4E 

bin2h1: dec 

si 



1140 0615 

8A 08 

aov 

bl/ al 



1141 0617 

22 OE 

and 

bl/ dh 



1142 0619 

2E: 8A 9F 05F5r 

mov 

bl/ hextabCbx] 



1143 061 E 

88 1C 

mov 

Csi]/ bl 



1144 0620 

86 01 

xchg 

dl/ cl 



1145 0622 

03 E8 

shr 

aX/ cl 



1146 0624 

86 01 

xchg 

dl/ cl 



1147 0626 

E2 EC 

Loop 

bin2h1 



1148 0628 

5A 

pop 

dx 



1149 0629 

59 

pop 

cx 



1150 062A 

SB 

pop 

bx 



1151 062B 

C3 

ret 




1152 062C 


bin2hex endp 




1153 






1154 


/ 




1155 


; Hardware interrupt service routines 



1156 


/ 




1157 


/ 



— 

1158 


; Catch-all interrupt service routine 

1159 


/ 



~ 

1160 






1161 062C 


duBuiy_isr proc 

FAR 



1162 062C 

CF 

iret 




1163 0620 


duBuny^isr endp 




1164 






1165 


/ 




1166 


; Receiver ready interrupt 



1167 


/ 




1168 






1169 0620 


rxrdy_isr proc 

FAR 



1170 0620 

50 

push 

ax 

/ 

save regs 

1171 062E 

53 

push 

bx 



1172 062F 

52 

push 

dx 



1173 0630 

IE 

push 

ds 



1174 0631 

B8 0000s 

BOV 

aX/ OATA 

/ 

point ds — > RAH data seg 

1175 0634 

8E 08 

BOV 

dS/ ax 



1176 0636 

BA 1302 

BOV 

dX/ UART01 

/ 

read status port 

1177 0639 

EC 

in 

al/ dx 



1178 063A 

8A EO 

BOV 

ah/ al 



1179 063C 

BA 1300 

BOV 

dX/ UARTOO 



1180 063F 

EC 

in 

al/ dx 

/ 

read char/ clear irq 

1181 0640 

8B 1E 0400r 

PK3V 

bX/ rx^inp 

/ 

get rev queue input pointer 

1182 0644 

88 07 

BOV 

lbx3/ al 

/ 

store char at ds:bx — > q-in 

1183 0646 

FE C3 

inc 

bl 

/ 

inc q-in pointer/ 256 bytes long 

1184 0648 

3B IE 0402r 

cap 

bX/ rx_outp 

/ 

check for q full 

1185 064C 

74 09 

je 

rxrdIO 

/ 

jap if $ 0 / don't update q-in pointer 

1186 064E 

F6 C4 30 

test 

ah/ 30h 

/ 

test for error bits 

1187 0651 

75 04 

jnz 

rxrdIO 

/ 

jap if any errors/ don't update ptr 

1188 0653 

89 IE 0400r 

BOV 

rx_inp/ bx 
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1189 0657 

BO 20 

rxrdlO: mov 

al, EOl 

/ 

send eoi to 8259 

1190 0659 

BA 1100 

■ov 

dx, ICOO 



1191 065C 

EE 

out 

dx^ al 



1192 065D 

IF 

pop 

ds 

/ 

restore regs S return 

1193 065E 

SA 

pop 

dx 



1194 065F 

SB 

pop 

bx 



1195 0660 

58 

pop 

ax 



1196 0661 

CF 

iret 




1197 0662 


rxrdy_isr endp 



1198 






1199 






1200 


/ 




1201 


; Transmitter ready interrupt 



1202 


/ 




1203 






1204 0662 


txrdy^isr proc 

NEAR 



1205 0662 

SO 

push 

ax 



1206 0663 

53 

push 

bx 



1207 0664 

52 

push 

dx 



1208 0665 

IE 

push 

ds 



1209 0666 

BA 1302 

mov 

dx, UART01 



1210 0669 

EC 

in 

al, dx 



1211 066A 

A8 01 

test 

al, 1 



1212 066C 

74 IB 


txrd04 



1213 066E 

B8 OOOOs 

mov 

ax, DATA 

/ 

ds —> RAM 

1214 0671 

8E D8 

mov 

ds, ax 



1215 0673 

BA 1300 

mov 

dx, UARTOO 



1216 0676 

8B 1E 0406r 

mov 

bx, tx_outp 

/ 

ds:bx — > transmit output queue 

1217 067A 

3B 1E 0404r 

cop 

bx, tx_inp 

/ 

queue empty? 

1218 067E 

74 09 

je 

txrd04 

/ 

y — exit isr 

1219 0680 

8A 07 

mov 

al, Cbx3 

/ 

pick up next char to xoit 

1220 0682 

EE 

out 

dx, al 

i 

send it 

1221 0683 

FE C3 

inc 

bl 

/ 

increment q ptr (q size = 256 chars) 

1222 0685 

89 IE 0406r 

BOV 

tx_outp, bx 



1223 0689 

BA 1100 

txrd04: aov 

dx, ICOO 

/ 

send eoi to 8259 

1224 068C 

BO 20 

BOV 

al, EOl 



1225 068E 

EE 

out 

dx, al 



1226 068F 

1F 

pop 

ds 



1227 0690 

5A 

pop 

dx 



1228 0691 

5B 

pop 

bx 



1229 0692 

58 

pop 

ax 



1230 0693 

CF 

iret 




1231 0694 


txrdy^isr endp 




1232 






1233 


/ 




1234 


; Transoitter ready interrupt soft 


1235 


/ 




1236 






1237 0694 


txrdy^s_isr proc NEAR 



1238 0694 

50 

push 

ax 



1239 0695 

53 

push 

bx 



1240 0696 

52 

push 

dx 



1241 0697 

1E 

push 

ds 



1242 0698 

BA 1302 

BOV 

dx, UART01 
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1243 069B 

EC 

in 

al^ dx 

1244 069C 

A8 01 

test 

al, 1 

1245 069E 

74 18 

jz 

txrds4 

1246 06A0 

88 0000s 

aov 

ax^ DATA 

1247 06A3 

8E 08 

mov 

dS/ ax 

1248 06A5 

BA 1300 

aov 

dx, UARTOO 

1249 06A8 

88 IE 0406r 

mov 

bx, tx_outp 

1250 06AC 

38 IE 0404r 

cop 

bx, tx_inp 

1251 06B0 

74 09 

je 

txrds4 

1252 06B2 

8A 07 

tnov 

aL, Cbx3 

1253 0684 

EE 

out 

dx, al 

1254 0685 

FE C3 

inc 

bl 

1255 0687 

89 IE 0406r 

aov 

tx_outp, bx 

1256 


;mov 

dx, ICOO 

1257 


;nov 

al, EOI 

1258 


;out 

dx, al 

1259 0688 

IF 

txrds4: pop 

ds 

1260 06BC 

5A 

pop 

dx 

1261 0680 

58 

pop 

bx 

1262 068E 

58 

pop 

ax 

1263 068F 

CF 

iret 


1264 06C0 


txrdy_s_isr endp 

1265 




1266 


t 


1267 


; Time base interrupt - 10.2 Hz 

1268 


/ 


1269 




1270 06C0 


tieebase_isr proc NEAR 

1271 06C0 

SO 

push 

ax 

1272 06C1 

52 

push 

dx 

1273 06C2 

BA 1600 

aov 

dx, UATCHD 

1274 06C5 

EE 

out 

dx, al 

1275 06C6 

BA 1100 

moy 

dx, ICOO 

1276 06C9 

80 20 

aov 

al, EOI 

1277 06C8 

EE 

out 

dx, al 

1278 06CC 

SA 

pop 

dx 

1279 06CD 

58 

pop 

ax 

1280 06CE 

CF 

iret 


1281 06CF 


tiaebase_isr endp 

1282 




1283 




1284 


/ 


1285 


; PrograounabLe timer interrupt 

1286 


/ " 


1287 




1288 06CF 


timer_isr proc 

NEAR 

1289 06CF 

50 

push 

ax 

1290 0600 

52 

push 

dx 

1291 0601 

BA 1100 

BOV 

dx, ICOO 

1292 0604 

80 20 

aov 

al, EOI 

1293 0606 

EE 

out 

dx, al 

1294 0607 

5A 

pop 

dx 

1295 0608 

58 

pop 

ax 

1296 0609 

CF 

iret 



; ds —> RAM 

; ds:bx — > transmit output queue 
; queue eopty? 

; y — exit isr 
; pick up next char to xmit 
; send it 

; increment q ptr (q size = 256 chars) 
; send eoi to 8259 


; reset watchdog timer 
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1297 060A 


tiser^isr endp 


1298 




1299 


/ 


1300 


; Waveform generator interrupt 

1301 


/ 


1302 




1303 06DA 


ugen__isr proc 

NEAR 

1304 06DA 

50 

push 

ax 

1305 06DB 

52 

push 

dx 

1306 06DC 

BA 1100 

mov 

dx, ICOO 

1307 06DF 

BO 20 

oov 

al, EOl 

1308 06E1 

EE 

out 

dX/ al 

1309 06E2 

5A 

pop 

dx 

1310 06E3 

58 

pop 

ax 

1311 06E4 

CF 

iret 


1312 06E5 


wgen_isr endp 


1313 




1314 


/ 


1315 


; Waveform generator timer interrupt 

1316 


/ 


1317 




1318 06E5 


wgtim_isr proc 

NEAR 

1319 06E5 

50 

push 

ax 

1320 06E6 

52 

push 

dx 

1321 06E7 

BA 1100 

BK3V 

dx, ICOO 

1322 06EA 

BO 20 

mov 

al, EOI 

1323 06EC 

EE 

out 

dx, al 

1324 06ED 

5A 

pop 

dx 

1325 06EE 

58 

pop 

ax 

1326 06EF 

CF 

iret 


1327 06F0 


wgtis^isr endp 


1328 




1329 


/ 


1330 


; Software interrupt service routines 

1331 


/ 


1332 


/ 


1333 


; Get single char from serial port 

1334 


/ 


1335 


/ 


1336 


; Returns 

: ax = FFFF if no char present 

1337 


/ 

ax = ascii code if char present 

1338 




1339 06F0 


getchar proc 

FAR 

1340 06F0 

53 

push 

bx 

1341 06F1 

IE 

push 

ds 

1342 06F2 

B8 OOOOs 

mov 

ax, DATA 

1343 06F5 

8E 08 

mov 

ds, ax 

1344 06F7 

8B IE 0402r 

mov 

bx, rx^outp ; now ds:bx — > rev queue 

1345 06FB 

B8 FFFF 

mov 

ax, ~1 ; set up for empty return 

1346 06FE 

3B 1E 0400r 

cap 

bx, rx^inp ; queue empty? 

1347 0702 

74 OA 

je 

getcOI ; y — return 

1348 0704 

8A 07 

mov 

al, Cbx] ; get char from queue 

1349 0706 

FE C3 

inc 

bl ; point to next q entry 

1350 0708 

89 1E 0402r 

mov 

rx_,outp, bx 
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1351 070C 

32 E4 

xor 

ah, ah 

; zero high byte of char 

1352 070E 

OB CO 

getcOI: or 

ax, ax 

; set condition code 

1353 0710 

IF 

pop 

ds 


1354 0711 

SB 

pop 

bx 


1355 0712 

CF 

iret 



1356 0713 


getchar endp 



1357 





1358 





1359 


/ 


— 

1360 


; Output single character to 

serial port 

1361 


/ 



1362 


; call with: 


1363 


/ 

al - char to output 


1364 


/ 

ah s 0 — > wait for queue space if queue is full 

1365 


/ 

ah != 0 — > return ioBediately if queue is full 

1366 


; returns 



1367 


/ 

ah s 0 if char was placed in queue 

1368 


/ 

ah != 0 if char was not placed in queue 

1369 


/ 



1370 


assume 

ds:DATA/ es: nothing 


1371 0713 


putchar proc 

FAR 


1372 0713 

FB 

sti 



1373 0714 

53 

push 

bx 


1374 0715 

52 

push 

dx 


1375 0716 

IE 

push 

ds 


1376 0717 

8B DO 

aov 

dx, ax 

; copy char to send 

1377 0719 

B8 OOOOs 

sov 

ax, DATA 

; address data segaent 

1378 071 C 

8E D8 

mov 

ds, ax 


1379 071 E 

SB IE 0404r 

BOV 

bx, tx_inp 

; get xait queue input ptr 

1380 0722 

8B C3 

BOV 

ax, bx 

; copy it 

1381 0724 

FE CO 

inc 

al 

; point to next Location 

1382 0726 

3B 06 0406r 

putc03: cap 

ax, txjoutp 

; if inp s= outp, queue is full 

1383 072A 

75 08 

jne 

putc03a 

; ji^ if not, ok to output char 

1384 072C 

OA F6 

or 

dh, dh 

; is dh 0? 

1385 072E 

74 F6 

je 

putc03 

; y — wait here for queue space 

1386 0730 

8A E6 

BOV 

ah, dh 

; n — return with ah !- 0 

1387 0732 

EB 09 

jap 

SHORT putc04 


1388 





1389 0734 

88 17 

putc03a:nov 

Cbx], dl 

; store char in queue 

1390 0736 

A3 0404 r 

BOV 

tx_inp, ax 

; keep queue pointer 

1391 0739 

CO 13 

int 

TXRDY_S_1NT 

; start transmission if necessary 

1392 073B 

32 E4 

xor 

ah, ah 

; return with ah ~ 0 

1393 073D 

8A C2 

putc04: BOV 

al, dl 


1394 073F 

IF 

pop 

ds 


1395 0740 

5A 

pop 

dx 


1396 0741 

5B 

pop 

bx 


1397 0742 

CF 

iret 



1398 0743 


putchar endp 



1399 





1400 


/ 



1401 


; EEPROH Write Routine 


1402 


/ 



1403 


; Input: 



1404 


/ 

ds:si buffer containing data 
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1405 



/ 

es:di address 

to write 

1406 



/ 

cx word count (address aay not wrap over 64-word boundary) 

1407 



; Output 

: 


1408 



9 

ds:s1 advanced by word count 

1409 



/ 

es:di advanced by word count 

1410 



/ 

ax return 

code 

1411 



/ 

0, successful 

1412 



9 

-1, write didn't verify 

1413 



9 

-2, address conflict (protected ROM or 64-word violation) 

1414 



9 

-3, word count error (must be between 1 and 64} 

1415 



9 

all other registers preserved 

1416 



/ 



1417 



; Note: 

this routine is 

copied to RAM and runs from there. 

1418 



; This avoids code fetches froa EEPROH while EEPROH write 

1419 



; is being perforsed. 


1420 






1421 0743 



wree^ron proc 

FAR 


1422 0743 

51 


push 

cx 


1423 0744 

52 


push 

dx 


1424 






1425 



; First, 

validate address. Address must not overlap 

1426 



; protected ROM segment. 

and must not cross 64-word boundary. 

1427 






1428 0745 

B8 

FFFD 

R»V 

ax, -3 

; error code ax = -3 if word count error 

1429 0748 

E3 

08 

jcxz 

wree6 

; jap if word count = 0 

1430 074A 

83 

F9 40 

cmp 

cx, 64 

; check word count 

1431 0740 

77 

03 

ja 

wree6 

; jap if > 64 

1432 074F 

EB 

04 90 

jsp 

wree7 


1433 0752 

E9 

0089 

wree6: jmp 

wree2 


1434 0755 

8C 

CO 

wree7: sov 

ax, e$ 

; get target segment 

1435 0757 

86 

07 

BOV 

dx, di 

; get target offset 

1436 0759 

92 


xchg 

ax, dx 


1437 075A 

01 

E8 

shr 

ax, 1 

; divide offset by 16 

1438 075C 

01 

E8 

shr 

ax, 1 


1439 075E 

01 

E8 

shr 

ax, 1 


1440 0760 

01 

E8 

shr 

ax, 1 


1441 0762 

03 

C2 

add 

ax, dx 

; compute segment addr of start 

1442 0764 

50 


push 

ax 

; save it for later 

1443 0765 

8C 

CO 

BOV 

ax, es 


1444 0767 

88 

07 

BOV 

dx, di 


1445 0769 

92 


xchg 

ax, dx 


1446 076A 

03 

Cl 

add 

ax, cx 

; add word count 

1447 076C 

03 

Cl 

add 

ax, cx 

; ..make it byte count 

1448 076E 

48 


dec 

ax 

; subtract 1 

1U9 076F 

01 

E8 

shr 

ax, 1 


1450 0771 

01 

E8 

shr 

ax, 1 


1451 0773 

01 

E8 

shr 

ax, 1 


1452 0775 

01 

E8 

shr 

ax, 1 


1453 0777 

03 

C2 

add 

ax, dx 

; get segment address of end 

1454 0779 

5A 


pop 

dx 


1455 077A 

30 

FEOO 

cap 

ax, PR0T_R0M 

; result aust not cross protected ROM 

1456 0770 

73 

2C 

jae 

wre(X) 

; jap if it does 

1457 077F 

81 

FA FOOO 

cap 

dx, Ghostlend 


1458 0783 

73 

OC 

jae 

wree4 
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1459 0785 

81 FA EOOO 


cap 

dx, Ghosti start 


1460 0789 

72 06 



wree4 


1461 0788 

88 FFFE 


BOV 

ax, -2 


1462 078E 

EB 4E 90 


jap 

wree2 


1463 0791 

30 FOOO 

wree4: 

CBp 

ax, Ghosti end 


1464 0794 

73 08 


jae 

wree5 


1465 0796 

30 EOOO 


crap 

ax, Ghosti start 


1466 0799 

72 06 


jb 

wree5 


1467 0798 

88 FFFE 


mov 

ax, ~2 


1468 079E 

EB 3E 90 


jmp 

wree2 


1469 07A1 

25 FF80 

wree5 : 

and 

ax, 0ff80h 

; now Look at page address (upper 9 bits) 

1470 07A4 

83 E2 80 


and 

dx, 0ff80h 


1471 07A7 

38 C2 


cap 

ax, dx 

; Bust not cross 64"WOrd boundary 

1472 07A9 

74 10 


je 

wreeO 

; jap if it's o.k. 

1473 






1474 07AB 


wreOO: 




1475 07AB 

88 FFFE 


BOV 

ax, -2 

; error code ax = ~2 if address confLict 

1476 07AE 

8C C2 


BOV 

dx, es 


1477 0780 

81 FA FOOO 


crap 

dx, EEPR0H1 

; exeption ONLY if es=EEPR0Hl 

1478 0784 

75 28 


jne 

wree2 

; and di> KerAbv, NO exception if the saoe 

1479 0786 

83 FF F6 


crap 

di, KerAbv 

; Location adressed differentLy 

1480 0789 

72 23 


jb 

wree2 

; Last chance — exception for above BOOT code 

1481 






1482 0788 


wreeO: 




1483 0788 

BA 0200 

wree3: 

BOV 

dx, UREE 

; enabLe eeprora access 

1484 078E 

80 OF 


BOV 

al, UREEEN 


1485 07C0 

EE 


out 

dx, aL 


1486 



; rep 

BOVSW 

; xfer data froB RAH to eeproa in cx counts 

1487 07C1 

AS 


BOVSW 



1488 07C2 

E2 F7 


Loop 

wree3 

; rep cx tiae enabLe, write 

1489 07C4 

32 CO 


xor 

aL, aL 


1490 07C6 

EE 


out 

dx, aL 

; disabLe eeproa access 

1491 07C7 

B9 01 F4 


BOV 

cx, 500 

; deLay while write takes effect 

1492 07CA 

E2 FE 


Loop 

$ 


1493 07CC 

8B 44 FE 


BOV 

ax, Csi-23 


1494 07CF 

89 1450 


BOV 

cx, 5200 

; set tiaeout count (10 as) 

1495 07D2 

26: 38 45 FE 

wreel: 

CBp 

ax, es:Cdi-23 

; wait for write cycle to coapLete 

1496 0706 

EO FA 


loopne 

wreel 

; check last word 

1497 07D8 

88 0000 


BOV 

ax, 0 

; error code ax — 0, doesn't change flags 

1498 0708 

74 01 


je 

wree2 

; jmp if write was successful 

1499 0700 

48 


dec 

ax 

; error code ax = -1 if write didn't verify 

1500 






1501 070E 

5A 

wree2: 

pop 

dx 


1502 O70F 

59 


pop 

cx 


1503 07EO 

CF 


iret 



1504 






1505 07E1 


wree^roB endp 



1506 

= 009E 

wree_len equ 

$~wree_roa 

; number of bytes in this routine 

1507 






1508 






1509 


/ 




1510 


/ 




1511 


/ 




1512 


/ 

Interrupt vector tabLe 
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1513 


/ 

(ROM, 

copied to RAH at startup) 

1514 


/ 



1515 





1516 07E1 

90 


even 


1517 





1518 


/ 

Hardware interrupts 

1519 





1520 07E2 

0000062Dsr * 

romivt 

dd 

rxrdy_isr, txrdy_^isr, wgen_isr, tiaebase_isr 

1521 

00000662sr 




1522 

000006DAsr + 




1523 

000006C0sr 




1524 07F2 

000006CFsr * 


dd 

tiaer_^isr/ wgtia^isr, dumay^isr, duaoiy_isr 

1525 

000006E5sr * 




1526 

0000062Csr + 




1527 

0000062Csr 




1528 





1529 


/ 

Software interrupts 

1530 





1531 0802 

000006FOsr + 


dd 

getchar, putchar, wree_rao, txrdy_s_isr 

1532 

0000071 3sr + 




1533 

00000700sr + 




1534 

00000694sr 




1535 0812 

0000062Csr + 


dd 

dummy_isr, dummy_isr, dummy_isr, dummy_isr 

1536 

0000062Csr + 




1537 

0000062Csr + 




1538 

0000062Csr 




1539 





1540 


/ 



1541 


/ 

Various code^segnent constants 

1542 


/ 



1543 





15U 0822 

20 52 4F 4D 20 4D 6F+ 

idssg 

db 

' ROH Monitor prograa V 0.80', Odh, Oah, 0 

1545 

6E 69 74 6F 72 20 704^ 




1546 

72 6F 67 72 61 6D 20f 




1547 

56 20 20 30 2E 38 30f 




1548 

OD OA 00 




1549 0841 

62 79 3A 20 54 2E 20f 

idas 92 

db 

'by: T. Nolan/ N. Chaielowski', Odh, Oah, 0 

1550 

4E 6F 6C 61 6E 2F 20f 




1551 

4D 2E 20 43 68 6D 69f 




1552 

65 6C 6F 77 73 68 69+ 




1553 

OD OA 00 




1554 0860 

4C 61 73 74 20 6D 6F+ 

idnsg3 

db 

'Last nod. - 25th Nov. 1992', Odh, Oah, 0 

1555 

64 2E 20 20 20 20 20+ 




1556 

32 35 74 68 20 4E 6F+ 




1557 

76 2E 20 31 39 39 32+ 




1558 

OD OA 00 




1559 087F 

OD OA 3E 00 

proept 

db 

Odh, Oah, '>', 0 

1560 0883 

OD OA 00 

crLf 

db 

Odh, Oah, 0 

1561 0886 

57 72 69 74 65 20 45+ 

wrterr 

db 

'Write Err ', 0 

1562 

72 72 20 00 




1563 0891 

20 2D 2D 20 50 41 53+ 

pass 

db 

• — PASS', Odh, Oah, 0 

1564 

53 OD OA 00 




1565 089C 

20 2D 2D 20 46 41 49+ 

fail 

db 

' — FAIL', Odh, Oah, 0 

1566 

4C OD OA 00 
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1567 08A7 

20 2A 44 45 4E 49 45-t- 

denn 

db 

■ *0EN1E0'/ Odh, Oah, 0 

1568 

44 00 OA 00 




1569 08B2 

52 41 40 31 20 70 61+ 

bitO 

db 

'RAM1 pattern 55AA 0 

1570 

74 74 65 72 6E 20 35+ 




1571 

35 41 41 20 20 20 00 




1572 08C7 

52 41 40 31 20 70 61+ 

biti 

db 

■RAMI pattern AA55 0 

1573 

74 74 65 72 6E 20 41+ 




1574 

41 35 35 20 20 20 00 




1575 080C 

52 41 40 31 20 62 79+ 

bit2 

db 

'RAH1 byte access 0 

1576 

74 65 20 61 63 63 65+ 




1577 

73 73 20 20 20 20 00 




1578 08F1 

52 41 40 31 20 61 64+ 

bit3 

db 

'RAM1 address '/ 0 

1579 

64 72 65 73 73 20 20+ 




1580 

20 20 20 20 20 20 00 




1581 0906 

49 6E 74 65 72 72 75+ 

bit4 

db 

'Interrupt controller', 0 

1582 

70 74 20 63 6F 6E 74+ 




1583 

72 6F 6C 6C 65 72 00 




1584 091B 

38 32 35 35 20 50 50+ 

bit5 

db 

*8255 PPl chip ', 0 

1585 

49 20 63 68 69 70 20+ 




1586 

20 20 20 20 20 20 00 




1587 0930 

38 32 35 34 20 74 69+ 

bit6 

db 

'8254 tiner chip ', 0 

1588 

6D 65 72 20 63 68 69+ 




1589 

70 20 20 20 20 20 00 




1590 0945 

55 41 52 54 20 63 68+ 

bit7 

db 

'UART chip ', 0 

1591 

69 70 20 20 20 20 20+ 




1592 

20 20 20 20 20 20 00 




1593 095A 

45 45 50 52 4F 4D 31+ 

bit8 

db 

'EEPROHI access ', 0 

1594 

20 61 63 63 65 73 73+ 




1595 

20 20 20 20 20 20 00 




1596 096F 

44 53 52 20 61 63 74+ 

bit9 

db 

'OSR active 0 

1597 

69 76 65 20 20 20 20+ 




1598 

20 20 20 20 20 20 00 




1599 0984 

52 41 4D 32 20 70 61+ 

bitIO 

db 

'RAH2 pattern 55AA ', 0 

1600 

74 74 65 72 6E 20 35+ 




1601 

35 41 41 20 20 20 00 




1602 0999 

52 41 40 32 20 70 61+ 

bitll 

db 

'RAM2 pattern AA55 ',0 

1603 

74 74 65 72 6E 20 41+ 




1604 

41 35 35 20 20 20 00 




1605 09AE 

52 41 40 32 20 62 79+ 

bit12 

db 

‘RAB2 byte access ', 0 

1606 

74 65 20 61 63 63 65+ 




1607 

73 73 20 20 20 20 00 




1608 09C3 

52 41 40 32 20 61 64+ 

bit13 

db 

'RAM2 address ', 0 

1609 

64 72 65 73 73 20 20+ 




1610 

20 20 20 20 20 20 00 




1611 09D8 

45 45 50 52 4F 40 32+ 

bit14 

db 

'EEPR0H2 access 0 

1612 

20 61 63 63 65 73 73+ 




1613 

20 20 20 20 20 20 00 




1614 09ED 

45 45 50 52 4F 40 20+ 

biti 5 

db 

'EEPROH KERNEL access', 0 

1615 

4B 45 52 4E 45 4C 20+ 




1616 

61 63 63 65 73 73 00 




1617 



even 


1618 0A02 

08B2r 08C7r 080Cr + 

bitasg 

dw 

bitO, biti, bit2, bit3, bit4, bit5, bit6, bit?, bits, bit9, bitIO, bitll. 

1619 

08F1r 0906r 091Br + 

bit12. 

bit13. 

bit14, bit15 

1620 

0930r 0945 r 095Ar + 
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1621 

1622 

1623 

1624 

1625 

1626 0A22 

096Fr 0984r 0999r + 
09AEr 09C3r 09D8r + 
09EDr 

63 63 64 20 20 20 20+ 

even 

db 

??filenase 

; 8 byte file nane 

1627 

1628 0A2A 

20 

31 36 3A 34 33 3A 32+ 

db 

??tise 

; 8 byte tiae 

1629 

1630 0A32 

35 

31 31 2F 32 35 2F 39+ 

db 

??date 

; 8 byte date 

1631 

1632 

1633 0A3A 

1634 

32 

CODE 

ends 

end 

start 
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SysboL Nase 

Type 

Value 

??DATE 

Text 

'•11/25/92“ 

??F1LENAME 

Text 

"ecd 

??TIME 

Text 

"16:43:25" 

??VERS10N 

Number 

0202 

acpu 

Text 

0101H 

aCURSEG 

Text 

CODE 

aFZLENAHE 

Text 

CCD 

aUORDSlZE 

Text 

2 

ADCP 

Number 

1400 

B1N2H1 

Near 

CODE: 0614 

B1N2HEX 

Near 

CODE: 0605 

BITO 

Byte 

CODE:08B2 

BIT1 

Byte 

C0DE:08C7 

B1T10 

Byte 

CODE: 0984 

BIT11 

Byte 

CODE: 0999 

BIT12 

Byte 

C0DE:09AE 

BIT13 

Byte 

C0DE:09C3 

BIT14 

Byte 

C0DE:09D8 

B1T15 

Byte 

C0DE:09ED 

B1T2 

Byte 

CO0E:O8DC 

BIT3 

Byte 

C0DE:08F1 

BIT4 

Byte 

C0DE:O906 

BITS 

Byte 

CODE:091B 

BIT6 

Byte 

CODE: 0930 

BIT7 

Byte 

CODE: 0945 

BITS 

Byte 

C0DE:095A 

B1T9 

Byte 

CO0E:O96F 

BITHS6 

Word 

CODE:0A02 

BMDRD115 

Number 0007 

BNDR02 

Number 0027 

BNDR04 

Number 0014 

BNDROa 

Number OOOA 

BNDRB9 

Number 004E 

BR115 

Near 

C0DE:05B6 

BR2 

Near 

C0DE:057D 

BR40 

Near 

C0DE:056A 

BRB 

Near 

CODE: 0590 

BR9 

Near 

CODE: 05 A3 

BYTESTA 

Near 

CODE: 0097 

BYTESTB 

Near 

CODE: 0067 

CRLF 

Byte 

CODE:0883 

DENN 

Byte 

CODE:08A7 

DIAGOO 

Near 

C0DE:02DA 

D1AG01 

Near 

CODE: 0313 

DIAG02 

Near 

C0DE:0319 

D1AG03 

Near 

CODE:02F1 

DIAG04 

Near 

C0DE:Q2FE 

01A6F 

Near 

C0DE:Q30B 

DHP001 

Near 

C0DE:04AF 

OHP010 

Near 

C0DE:04CE 

DUMMY ISR 

Far 

C0DE:062C 
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DUHPHEH 

Near 

COOE:04AD 

EEPNI 

Number 

0008 

EEPN2 

Number 

0002 

EEPN3 

Number 

0001 

EEPR0M1 

Number 

FOOD 

EEPR0M2 

Number 

DOOO 

EE^BUF 

Word 

0ATA:04SC 

EOl 

Number 

0020 

FAIL 

Byte 

C0DE:089C 

GETC01 

Near 

C0DE:070E 

6ETCHAR 

Far 

C0DE:06F0 

GETCH__XNT 

Number 

0010 

GETH01 

Near 

COOE:034D 

GETH02 

Near 

C0DE:035E 

GETH04 

Near 

CODE:037A 

GETN05 

Near 

CODE: 0370 

GETM10 

Near 

COOE:Q37F 

GETHSG 

Near 

CODE:0338 

GH0ST1END 

Number 

FOOO 

GH0ST1 START 

Number 

EOOO 

GOUSER 

Near 

CODE: 0420 

G0_USERADD 

Far 

C0DE:04AA 

H010 

Near 

COOE:05CF 

H030 

Near 

CODE: 05 EB 

H050 

Near 

C0DE:0SF2 

HEX2B1N 

Near 

CODE:Q5C9 

HEXTAB 

Byte 

CODE:05F5 

ICOO 

Number 

1100 

1C01 

Number 

1102 

IDHSG 

Byte 

C0DE:0822 

1DHSG2 

Byte 

CODE: 0841 

IDnSG3 

Byte 

CODE: 0860 

KERABV 

Number 

FFF6 

HONITR 

Near 

C0DE:02BB 

MSGBUF 

Byte 

DATA:040A 

HSG001 

Near 

C0DE:03AS 

HSG002 

Near 

CODE:03AF 

HS6004 

Near 

CODE:03B8 

HSG006 

Near 

COOE:03BF 

PASS 

Byte 

CODE: 0891 

PITOO 

Number 

1500 

PIT01 

Number 

1502 

P1T02 

Number 

1504 

PIT03 

Number 

1506 

PPIOO 

Number 

1200 

PPI01 

Number 

1202 

PPI02 

Number 

1204 

PPI03 

Number 

1206 

PR040 

Near 

C0DE:0301 

PR042 

Near 

COOE:03D9 

PR044 

Near 

COOE:Q3E1 

PR046 

Near 

COOE:03E9 

PR048 

Near 

C0DE:03F1 

PROSO 

Near 

COOE:03F9 
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PR0S2 

Near 

CODE: 0400 

PR054 

Near 

C0DE:0409 

PR060 

Near 

CODE: 0412 

PR065 

Near 

CODE: 0423 

PR066 

Near 

CODE: 0444 

PR070 

Near 

CODE: 0450 

PR072 

Near 

CODE:0464 

PR074 

Near 

CODE:046A 

PR080 

Near 

CODE; 0471 

PR082 

Near 

CODE: 0484 

PR084 

Near 

CODE: 0489 

PR099 

Near 

C0DE:048D 

PRL10 

Near 

CODE:0506 

PRL12 

Near 

CODE:050E 

PRL14 

Near 

CODE: 051 F 

PRL15 

Near 

CODE; 0521 

PRL16 

Near 

CODE: 0529 

PRL17 

Near 

CODE: 0537 

PRL99 

Near 

C0DE:055A 

PROCESS 

Near 

C0DE:03C4 

PROGLOAD 

Near 

C0DE:04F8 

PROMPT 

Byte 

C0DE:087F 

PR0T_R0H 

Number 

FEOO 

PUTC03 

Near 

CODE: 0726 

PUTC03A 

Near 

CODE: 0734 

PUTC04 

Near 

CODE:073D 

PUTCHAR 

Far 

CODE: 0713 

PUTCH_1NT 

Number 

0011 

PUTMS6 

Near 

CODE: 0391 

PWRUP_ERR 

Word 

DATA:0408 

RAMI 

Number 0000 

RAH2 

Number 2000 

RAHIVT 

Duord 

DATA: 0020 

RAM_INTR 

Dword 

DATA: 0000 

ROMIVT 

Dword 

C0DE:07E2 

RXRDIO 

Near 

CODE: 0657 

RXRDY_INT 

Number 0008 

RXRDY_ISR 

Far 

C0DE:062D 

RX_INP 

Uord 

DATA:0400 

RX^OUTP 

Uord 

DATA: 0402 

RX_QUEUE 

Byte 

DATA: 0600 

STACK_L 

Word 

DATA:0A00 

START 

Far 

CODE: 0000 

STOP 

Number 

1000 

TOSTRT 

Number 

FEOO 

TEMP 

Far 

CODE: 0569 

TESTOA 

Near 

CODE: 0012 

TESTOa 

Near 

CODE:002D 

TEST1A 

Near 

CODE: 0049 

TEST1B 

Near 

CODE:0066 

TEST2A 

Near 

CODE:0084 

TEST2AF 

Near 

CODE:00A3 

TEST2B 

Near 

C0DE:00A6 

TEST2BF 

Near 

C0DE:00C3 
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TEST3A 

Near 

C0DE:00C7 

TEST3B 

Near 

C0DE:00D3 

TEST3C 

Near 

C0DE:000F 

TEST30 

Near 

COOE:OOED 

TEST3E 

Near 

COOE:OOF9 

TEST3F 

Near 

CODE: 0105 

TEST3G 

Near 

CODE: 01 14 

TEST4A 

Near 

CODE: 01 5D 

TEST5 

Near 

CODE: 01 6A 

TEST6 

Near 

CODE: 01 7A 

TEST? 

Near 

C0DE:01A8 

TEST7A 

Near 

C0DE:01C2 

TEST7B 

Near 

C0DE:01D4 

TEST7C 

Near 

CODE: 01 EC 

TEST7X 

Near 

C0DE:01CA 

TESTS 

Near 

CODE:0200 

TEST8A 

Near 

CODE:0226 

TEST8B 

Near 

CODE: 0246 

TEST8C 

Near 

CODE: 0256 

TEST8D 

Near 

CODE: 0276 

TIMEBASE^ISR 

Near 

C0DE:06C0 

TIMER_1SR 

Near 

C0DE:06CF 

TPTTRN 

Nunber 

55AA 

TST0FSE1 

Nunber 

0000 

TST0FSE2 

Nunber 0000 

TST0FSE3 

Number 

FFF6 

TXRD04 

Near 

CODE: 0689 

TXRDS4 

Near 

COOE:06BB 

TXRDY_INT 

Number 0009 

TXRDY_1SR 

Near 

CODE:0662 

TXRDY_S_INT 

Number 0013 

TXRDY_S_ISR 

Near 

CODE: 0694 

TX^INP 

Word 

DATA: 0404 

TX_0UTP 

Word 

DATA:0406 

TX_QUEUE 

Byte 

DATA: 0500 

UARTOO 

Nunber 

1300 

UART01 

Number 1302 

USRAOFS 

Number OFFC 

USRASE6 

Number 

FDOO 

UAITEC 

Near 

CODE:02AE 

UATCHD 

Nunber 

1600 

UGEN 

Number 1700 

UGEN_ISR 

Near 

CODE:06DA 

WGTIM_ISR 

Near 

C0DE:06E5 

WREOO 

Near 

C0DE:07AB 

WREE 

Number 0200 

UREEO 

Near 

CODE:07BB 

UREE1 

Near 

C0DE:07D2 

UREE2 

Near 

CODE:07DE 

UREE3 

Near 

CODE:07BB 

UREE4 

Near 

CODE: 0791 

UREE5 

Near 

CODE:07A1 

UREE6 

Near 

CODE: 0752 

UREE7 

Near 

CODE: 0755 
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UREEEN 

Nuaber 

OOOF 


UREE.LEN 

Nusber 

009E 


WREE_RAN 

Far 

DATA:0700 


UREE.ROH 

Far 

CODE:0743 


URITE^USERAOD 

Near 

CODE:0494 


URTEE_1NT 

Nuaber 

0012 


URTERR 

Byte 

CODE:0886 


XDEB 

Near 

C0DE:05SB 


XXX 

Near 

CODE:0320 


Groups ft Segsents 

Bit Size Align Coabine Class 

CODE 

16 0A3A Para Public 

CODE 

DATA 

16 OAOO Para Public 

DATA 
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/* 

/* pload.c — program loader for CCD board 
* 

* Syntax: pload binfile seg [port] 

* 

* T. Nolan 8/1/92 
*/ 


#include <stdio.h> 
iinclude <conio.h> 

#include <dos.h> 

#include <io.h> 

char fname[67]; 

char cmd[20]; 

char buf[128]; 

char inbuf [128]; 

char * inbuf p = inbuf; 

char comstr[ ] = "coml"; 

int comtbl[] = {0x3f8, 0x2f8}; 

int port ; 

#define TXRDY 0x20 
#define RXRDY 0x01 

void getcom(char *, char, int); 
void putcom(char *, int, int); 
void comerr ( char * ) ; 
void usage(); 


/* #pragma intrinsic ( inp, outp) */ 

/* 

void main (int ac, char **av) 

{ 

FILE *fp, *fpc; 
char *arg; 
int seg; 
long len; 
long count; 
int i; 

if(ac < 3) usage(); 

for(i=l; i<ac; i++) 

{ 

arg = av[i]; 

switch( i) 

{ 

case 1: strcpy(fname, arg); 

fp = fopen(fname, “rb”); 
if ( !fp) 

{ 

perror(arg) ; 
exit ( 4 ) ; 

} 
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break; 

case 2: seg = strtoul(arg, &arg, 16); 
break; 


case 3: if(*arg == ' 1 * || *arg == ' 2 ') 
comstr[3] = *arg; 
else usage(); 
break; 

default: usage(); 

} 


} 

len = f ilelength(fileno(fp) ) ; 
port = comtbl [ comstr [ 3 ] - ' 1 ' ] ; 

printf("CCD Binary Program Loader vl.OO - T. Nolan 8/l/92\n“); 
printf ( "Loading file %s using %s\n", fname, comstr); 


for (count = 0; count < len; ) 

{ 

printf ( "Segment %04x\r", seg); 

i = len-count > 128 ? 128 : len-count; 

sprintf(cmd, "L%04x %x\r", seg, i); 

putcom(cmd, strlen(cmd), port); 

getcom(buf, '\n', port); 

if(*buf 1= 'L') comerr(buf); 

fread(buf, 1, i, fp); 

putcom(buf, i, port); 

getcom(buf, , port); 

if(*buf != '\r') comerr(buf); 

count += i; 

seg += (i >> 4) ; 


printf (" \n%ld bytes sent\n", len); 
exit ( 0 ) ; 


/* 

void putcom(char *buf, int len, int port) 

{ 

while ( len — ) 

{ 

while( I (inp(port+5) & TXRDY) ) 

if (inp(port+5) & RXRDY) *inbufp++ = inp(port); 
outp ( port , *buf ++ ) ; 

} 
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/* 

void getcom(char *buf, char end, int port) 

{ 

int c; 

char *ip = inbuf; 

while (ip < inbuf p) 

{ 

if((*buf++ = *ip++) == end) 

{ 

*buf = ' \0 ' ; 
return; 

} 

} 

inbuf p = inbuf; 

while(l) 

{ 

while( ! (inp(port+5) & RXRDY) ) 
if (kbhit( ) ) 

{ 

*buf = ' \0 ' ; 
return; 

} 

if((*buf++ = inp(port)) — end) 

{ 

*buf = '\0'; 
return; 

} 

} 

} 

/★ 

void comerr(char *buf) 

{ 

printf ( “\nCoinm error %s\n", buf); 
exit ( 1 ) ; 

} 



void usage ( ) 

{ 

printf (“Usage; pload binfile seg [port]\n“); 
exit(2 ) ; 

} 


Page 3 

Um or ducslooure of theae SBIR data ia aulgoct to the restriction on the title page of this report. 


Progran StarTracker; -CST5.pas> 


{ Compiler Options N- E- do NOT use cooprocessor iven if present > 
•C$N-,E-,R+,G-,D+,S+,V+,X+,L+,A+,I- > 

■C Limit memory usage for remote system > 

•C$H$4000, $2000, $2000 > 

{ REMOTE option is define in TPC.CFG to select remote compilation > 

{ compilation Units to use > 

uses 
St START, 

StdefOl, 

StAqsOI, StAQOI, STMainOI, StPpicOI, StCpic04, 

CSIfNDef REMOTE > St0pic04, {SEndlf > 

StPCSGOI, StTest, StSrchOI, StRemI; 

uar 

i: byte; 

NofStEndS: byte; 
ch: char; 

IntMax: word; 

IntMaxI; byte; 

Strr: string; 
j: longlnt; 

var 

jj; char; 

Begin 

-C Power up test > 

{test;> 

CtestV(1000000);> 

<testV<4);> 

testVCD; 

■C initial search > 
repeat 

NofStTrack:=StSearch(StarSearch.StNTofind); 
until NofStTrack>0; 

{ set initial tracking windows - larger then when locked on star > 

UinStX:=UinStXSrch; 

WinStY:=UinStYSrch; 

Ui nSepX : =U i nSepXSrch; 

UinSepY:=WinSepYSrch; 

Ui nUBx : =U i nUBxS rch; 

WinHBy:= WinStY+2*UinSepYSrch; 

IntUindowStarsl Stars); 

£ 

WinStX:=WinStXtr; 

WinStY:=WinStYtr; 
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WlnSepX;=UinSepXtr; 

Ui nSepY : =Wi nSepYt r; 

U i nUBx : -U 1 nWBxt r; 

WinHBy:= WinStY+2*UinSepYtr; 

SlowDownX:= SlowDownXTr; 

> 

{CLrScr;> 

HLevelTgL:=MleveL; 

F raaeNoCounter : =0; 

-C aain tracking Loop > 

repeat 

begin 

{ Check background and adjust exposure every FraneNoToCheckB > 

if NLevel then HleveLTgl:=not MLeveLTgL else HLevelTgl:=faLse; 
if ( (FraneNoCounter and FraneNoToCheck=0> or 
( F raneNoCounter<F raneNoToCheckB) ) 
then 
begin 

NofStStart:=0; 

NofStEnd:=NofStTrack+1; 

BcgrToAdj :=true; 

if (FraineNoCounter mod FrameNoToCheck=0) then DAC_LEDCheck:=true; 
end 
else 
begin 

If (FrameNoCounter mod FrameNoToBcgr=0) then BcgrToAdj :=true; 
if (StToDispL=0) or (StTo0ispL=9) or OAC_LEDtoADJ then 
begin 

NofStStart:=0; 

Nof StEnd : =Nof StTrack+1 ; 
end 
else 
begin 

NofStStart:=1; 

Nof StEnd : =Nof StT rack; 
end; 
end; 

-C Set new tracking windows boarder if needed > 

if ( (Mlevel and not MLeveLTgL) or (not HLevel) ) then 
begin 

inc(AfterSrchCT); 

if BcgrToAdj or BcgrToAdjUas or DebugDspLHodeUas then 
begin 

SetUindowBorder(Stars); 

end; 

SetUindowStars(StarS); 

end; 

< Exposure linage^ Store tracking windows data > 

StoreStarsImageSt ( ExposureTi me) ; 

{6enSynch;> 

< Convert tracking window data to digital fora > 
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for i;=NofStStart to NofStEnd do 
begin 

Accui reWpi ctureSt < Stars . StarRsC i ] ) ; 
end; 

{ Decode scrambled data > 

for i:=NofStStart to NofStEnd do 
begin 

■CClearlmageAndStoraged };> 

ProcessPi ctureSt ( Stars . StarRsC i ] ); 
end; 

-CClearlmageAndStoraged);} 

C Calculate subpixel positions of stars } 

if ( (Hlevel and HlevelTgl) or (not Hlevel) } then 
begin 

for i:=1 to NofStTrack do 
begin 

CalculateStarCStarS.StarRsCi]}; 

CClearlmageAndStoraged };> 
end; 

CExpToAd j ust : =t r ue; > 

C Display tracking windows if in TEST mode > 

CSIfNDef REHOTE } 

if (StToDispl09) and not DAC_LEDCheck then 
begin 

case StToDispl of 
7: DisplayStar (Stars. StarRsC?]); 

8: begin 
lntNax:=0; 

for i:=1 to NofStTrack do 
begin 

if stars. StarRsCi].Nagn.StarlntHax>lntNAX then 
begin 

lntHax:=StarS. StarRsC i ] . Nagn. StarlntHax; 
lntHaxl:=i; 
end; 
end; 

StToDi spl :=lntNaxl; 

DisplayStar(StarS.StarRsCStToOispl]); 

end; 

else 

D i splay Star (stars . StarRsCStToDi spl] ); 
end; Cease} 

CClearlmageAndStoraged);} 

end 

else 

begin 

for i:»NofStStart to NofStEnd do 
begin 

DisplayStarCStarS.StarRsCi]); 
if i=0 then 
begin 

CC lear ImageAndStorage( 5 ) ; } 
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end; 

<ClearlmageAndStorage(1 );> 
end; 

end; {eLse> 

{SELse > 


writeLn( ‘ 


X stars. StarRs[HainStar].Cntr.CntrX;3:2, 

Y stars. StarRsCMainStar].Cntr.CntrY:3:2, 

n stars. StarRs[HainStar3.Hagn. StarlntMax:4, 

H stars. StarRs[NainStar3.Nagn.StHN:7:2/ 

T ExposureTine:3, 

Cx'/ Star S.StarRs[HainStar3. Wind. Xcenter: 4:1, 
Cy', stars. StarRsCNainStar3. Wind. Ycenter:4:1); 


> 

CSEndlf > 


{ Adjust exposure parameters, background and reposition windows > 

if BcgrToAdj then BcgrToAdjWas:=true else BcgrToAdjUas:=faLse; 
BcgrToAdj :=false; 
if ExpToAdjust then 
begin 
IntMax:=0; 

BcgrToAdj :=true; 
for i:=1 to NofStTrack do 
begin 

if Stars. StarRsCi3.Hagn.StarIntHax>IntHAX then 
begin 

IntNax : =StarS . StarRsCi 3 .Hagn . StarlntKax; 

IntMaxI:=i; 

end; 

end; 

HainStar:=lntMaxl; 

AdjustExposure(StarS.StarRsCMainStar3); 

-CC lear ImageAndStoraged ); > 
end 

else BcgrToAdj ;=false; 

if PosToAdjust and (NofStTrack>0> then for i:=1 to NofStTrack do 
begin 

{BcgrToAdj :=true;> 

if true {PosNoAdjust and StarS.StarRsCi3.St2NOO> then 
begin 

RepositionUindowCStarS.StarRsCi]); 

{ClearlmageAndStorageCI );> 
end; 
end; 

if (NofStStart=0) and (NofStEnd>NofStTrack) then 
begin 

if DAC^LEDtoAdj or DAC_LEDCheck then 
SetDACandLEDCStarS.StarRsCO], StarS.StarRsCNofStEnd]); 

{C lear ImageAndStoraged ) ; > 
end; 

{ Count image frames > 


if FraraeNoCounter<$FFFF then inc(FrameNoCounter) 

else FrameNoCounter;=FrameNoToCheckBd; 

end; {if> 
end; 

until false; 
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End. 
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unit StSTART; 


interface 

iapLeaentation 

{ copy program constant forn EEPROM to RAM > 


var 

FronSeg: byte absolute $0000:0000; 
ToSeg : byte absolute $2000:0000; 
const 

LenBytes = $D200; 

BEGIN 

■ovelFroaSeg, ToSeg, LenBytes); 
END. 
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Unit STdefOl; CSTdefOl .pas> 


-C Definitions of global constant/ data types/ variables/ records > 
{ Procedure initializating dynamic variables > 


Interface 

{ uses REMOTE or TEST version 1/0 ports addresses > 

£$IfNDef REMOTE > 
uses 

CRT/ DOS; 

{SEndlf > 


-C uses floating point aritmetic without cooprocessor > 


Type 


float = real; 

■C CCD structure parameters > 


const 


NofLsegments = 3; 

Hof A lines = 488; 

NofA2 lines = Nof Alines div 2; £244> 

NofPlines = 2*NofAlines; £976> 

NofSlines = NofA2lines * NofLsegments; C732> 

NofDpixels = 12; 

NofDLpixels = 24; 

NoflmPixLine = 1134; 


NofImPixLine + NofDLpixels; -C1158> 

NofPixLine div NofLsegments; £386> 

NofSpixels + NofDpixels; £398> 

NofSelements - NofDLpixels div NofLsegments; £390> 
NofSelements * NofLsegments; •C1194> 

567; 

490; 


NofPixLine = 

NofSpixels = 

NofSelements = 

NofDASpixels = 

NofEinLine = 

CCDcenterXX = 

CCDcenterYY = 

{A *** * * *** ** * *** * *****} 

NoflMlinesMax= NofAlines; 

NofPicLinesMax= NofPlines; 

NofPointsMax = 104; -C NofPointsMax = 2*NofPoints + 8 > 

Nof Data = NofSelements; 

£ S*tA»AAA*A**AA***A** *> 

NoflmageMaxX = 1170; 

Nof ImageMinX = 36; 

NoflmageMinY = 5; 

NofImageMaxY = 976; 

<* * ******** * *** * ****** > 

£1/0 Ports addresses > 


£$IfNDef REMOTE > 


Base 
PlO_A0 
PI0_B0 
PIO CO 


> $ 200 ; 

= Base + SO; 
= Base + $1; 
= Base + $2; 
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PIO_UO 

= Base + $3; 

PI0_A1 

= Base + S4; 

PI0_B1 

= Base + $5; 

PIO^CI 

= Base + $6; 

PI0_W1 

= Base + $7; 

PI0_A2 

= Base + $8; 

PI0_B2 

= Base + $9; 

PI0_C2 

= Base + $A; 

PI0_U2 

= Base + SB; 

ADCouts 

= PIO_A0; 

-CADCouts 

is Word type Hi 

ADCstr 

= P10_CO; 

SynchDr 

= PI0_C0; 


i 


SDriver 

= PI0_A2; 

PDriver 

= PI0_B2; 

Integrator 

= SDriver; 

J 


tSElse > 


PI0_A1 

= SI 200; 

PI0_B1 

= SI 202; 

PI0_C1 

= SI 204; 

P10_W1 

= SI 206; 

ADCouts 

= SI 400; 

t 


Base 

= S200; 

PI0_A0 

= Base + SO; 

PI0_B0 

= Base + SI; 

PI0_C0 

= Base * S2; 

PIO_W0 

= Base + S3; 

P10_A1 

= Base + S4; 

PI0_B1 

= Base + S5; 

PI0_.C1 

= Base + S6; 

PI0_U1 

= Base + S7; 

PI0_A2 

= Base -*■ S8; 

PI0_B2 

= Base + S9; 

P10_C2 

= Base + SA; 

PI0_W2 

= Base SB; 

ADCouts 

= PIO_A0; 

> 


ODCouts is Word type Hi 

ADCstr 

= PI0_C1; 

SynchDr 

= PI0_C1; 

{SEndlf > 


AuxDr 

= PI0_A1; 

AnalDr 

= PIO^BI; 
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UedDr = P10_C1; 

{ lA Ports data bits functions > 


{** j hl s*** ****»»** **iA****< i * * ** *******> 

<. Signals from AOCouts > 

< 1-12 LSB-HSB of ADC > 

«C_BUSY_0 = $1000; 

*C_N_WAIT_0 = $2000; 

l*C_N_ST0P = $4000; 

MC_Spare = $8000; 

{* **M ** *****A*******A **** **AA**A*** > 

-C Signals for ADCstr > 
a»_CSr = $40;CEXT_0UT1> 
liCstrInit= $0; 

■C A ' ASiAA ******* *** AAA AAAAA AAtAA* *****> 

{ Signals for AuxDr > 

BACaddrOfs= 0; {. addr starts at $1 to $4 3 bits > 

•uxEnI = $8; 

Sclk = $10; 

SOin = $20; 

0toA1_L = $40; 

Anal_EN = $80; 

Deselect = Anal_EN; 

AuxDr Ini t= $0; 

DACAddrMask = $7; 

BACAddrEnMask = $F; 

■C AAAAAAAAA AAAAAAAA AAAAAAAAAAAA A AA ' AAA > 


< Signals for AnalDr > 


HuxAddrOfs = 

*0; 

-C addr Mux 0 starts at $1 to $ 4 3 bits > 

PluxEnO = 

$8; 


IA6I 

$10; 


ABGI = 

$20; 


A0GC_En 

$40; 


1emp_En = 

$80; 


SnalDrlnit = 

SO; 


■uxOChIntBuffOut = 

$3; -C $5; was for old ver > 

lUxOChHouse 

= 

SI; 

HuxOaddrNask 

= $7; 


SuxOaddrEnHask - $F; 



{ AAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA A A A A> 


(* 


{ Signals for LedDr 

L»sOFF 

= SF; 

l£D1_OFF 

= $1; 

UD2_0FF 

II 

UD3_OFF 

= $4; 

l£D4_OFF 

= $8; 

nixEn2 

= $10; 

lbxEn3 

= $20; 

ExtOutI 

= $40; 

Bct0ut2 

= $80; 

{LedDrlnit 

= $0;> 


> 

{ LEDs at $1^ $2, $4, $8 4 LEDs > 


LcdDrlnit = Ext0ut2; 


■ox2_3EnNask= $30; 


■CA AAAAAAA AAAAAAAAAAAAA> 

{ Signals for SDriver > 


JntHold 

= 0; 

ISstop 

= 0; 

IStPolPos 

= 1; 
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IntSample 

= 

2; 



IntReset 

= 

4; 



AD_CS 

= 

8; 



SDGlj> 

= 

16; 



SDG2_p 

= 

32; 



SDG3_p 

= 

64; 



SOTRj) 

=128; 






SDGjJ 

= 

SDG1 JJ 

or 

SDG2_p or SDG3ja; 

SDn 

= 

ADstop; 



SDGlp 

= 

SDGIjJ 

or 

ADstop; 

SDG2p 

= 

SDG2j) 

or 

ADstop; 

SDG3p 

= 

SDG3JJ 

or 

ADstop; 

SDGp 

= 

SDGj> 

or 

ADstop; 

SDTRp 

= 

SDTRjJ 

or 

ADstop; 

SDnR 

= 

SDn 

or 

IntReset; 

SDGIpR 

- 

SDGlp 

or 

IntReset; 

SDG2pR 

= 

SDG2p 

or 

IntReset; 

SDG3pR 

= 

SDG3p 

or 

IntReset; 

SDGpR 

= 

SDGp 

or 

IntReset; 

SDTRpR 

= 

SDTRp 

or 

IntReset; 

SOriverInit 

= 

SO; 




-C Signals for PDriver 


PDzero 

PDlAGp 

PDSRGs 

PDSAGIp 

POIAGI 

POTMGp 

PDABCp 

PDSAG2p 

POABGl 

PDn 

PDnABm 

PDHSIp 

PDNS2p 


*) 


= 8; 

= 16 ; 

= 32; 

= 64; 

= 128; 

= PDzero; 

= PDzero or PDABGI; 

= PDTMGp or PDSAGIp; 

= PDTHGp or PDSAG2p; 

PDHSipABm = PDTHGp or PDSAGIp or PDABGI; 

PDHS2pABm = PDTHGp or PDSAG2p or PDABGI; 

PDIHp = PDIAGp; 

PDIHpABro = PDIAGp or PDABGI; 

PDHp = PDTHGp; 

PDSIp = PDSAGIp; 

P0S2p == PDSAG2p; 

POIHSlp = PDIAGp or PDTHGp or PDSAGIp; 

PDIHS2p = PDIAGp or PDTHGp or PDSAG2p; 

POIHSIpABtlF PDIAGp or PDTHGp or PDSAGIp or PDABGI; 

PDIHS2pABtn=: PDIAGp or PDTHGp or P0SAG2p or PDABGI; 

POABHr = PDIAGI or PDABGI; 

PDABn = PDzero; 

PDABp = PDABCp; 

PDABnH = PDIAGI or PDABGI; 

PDABpH - PDABp or PDIAGI or PDABGI; 

ABinnerL = 285; 

PDriver Ini t= $0; 

■C ** * * *** **A*AAJ>* ' ***A*******A*A* > 

■C Signals for SynchDr > 

•CSIfNDef REHOTE > 
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SynchB = $1; 

<SElse> 

SynchB = $80; 

{$EndIf> 

SynchZero = $0; 

-C Initial parameters for exposure, LED, search, counters > 
{ DACs, thresholds > 


< * * >* ****** * **********> 

NofPoints : word = 16; 

Not Points Int : word = 4; 

AntiBl ; boolean = {false;} true; 

FrameNoCounter: word = 0; 
FrameNoToCheckB: word = 3; 
FrameNoToBcgr: word = 10; 
FrameNoToCheck: word =50; 

ExposureTime : word = 50; 

ExposureTimeR: word = 50; 
ExposureTimeOld; word = 10; 
ExposureTimeHax: word = 1000; 
ExpTSrchStart ; word =1; 

: word = 10; 

: word = 100; 
boolean = true; {false;} 
boolean = true; {false;} 
boolean = true; 
word = 7; 
boolean = true; 
boolean = true; 
boolean = false; 
boolean = true; 
boolean = true; 
boolean = true; 
boolean = false; 


ExpTSrchMinO 
ExpTSrchMaxO 
Hlevel 
HlevelTgl 
ExpToAdjust 
ExpNoAdjust 
PosToAdjust 
0AC_LEDtoADJ 
OAC_LEDCheck 
DACtoAdj 
LEDtoAdj 
BcgrToAdj 
BcgrToAdjWas 
DAC_Adj_Stb : word 
DAC_Adj_try : word 
LED_Adj__Stb : word 
LED_Adj_t ry : word 
LED_Line_Br - 4; 
DAC_Line_Or = 6; 
DAC_LE0_Width = 10; 
0AC_LED_,Pos = 150; 
SSwindow 
LedWi ndow 


= 0 ; 
= 0; 
= 0 ; 
= 0 ; 


boolean = true; 
boolean - true; {false;} 


LedTimeM 

LedTimeO 

LedTinel 

LedTifflelSrch 


word 

word 

word 

word 


= 100 ; 
= 20; 
= 20; 
= 10; 
= 10; 


LedTiaelSrchSet: word 
LedTimeMax = 100; 

LedNumH : word = 4; 

LedNun : word = 4; 

DebugDsplHode: boolean = false; {true;} 
DebugDsplModeUas: boolean = false; 
{****»**»»*»** ***** ** * *** A A A AAAA} 
PicShifted = true; 

PicNoShift = false; 

Bits12 = 4096; 

Bit12 = 4095; 
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Bit12deLta = 16; 

MaxLonglnt = 2147483647; 


SearchHax 

integer 

= 

Bits12; 

SearchHin 

integer 

= 

0; 

LocSearchHax 

integer 

= 

0; 

LocSearchHin 

integer 

= 

0; 

SearchHaxX 

integer 

= 

0; 

SearchHaxY 

integer 

- 

0; 

DACOV 

word 

= 

0; 

DAC1V 

word 

= 

1024; 

DAC2V 

word 

= 

2524; 

DAC3V 

word 

= 

1024; 

DAC4V 

word 

= 

1024; 

DAC5V 

word 

= 

1024; 

DAC6V 

word 

- 

1024; 

DAC7V 

word 

= 

1024; 

Dac3VthStart 

word 

= 

500; 

Dac3VthSet 

word 

= 

500; 

TempD 

word 


0; 


■C Star search initial parameters - # of star to search for > 

-C initial windows settings, windows setting when locked > 

NofStHax = 7; 

NofStTrack :word=2; 

NofStStart :word=0; 

NofStEnd ;word=3; 

NofOataSt = 9; -C9; to fit screen 80 colums> 

NofIMLinesMaxSt = 25; {13; to fit 80x25 mode> £25 to fit 80x50 VGA> 

NofEinLineSt = NofLsegments * NofOataSt; £27> 

NofPlinesSt = 2*Nof IHLinesMaxSt; { 26 or 50 > 

WinWroax = (NofDataSt-1)*Nof {segments; {8*3=24 points *3=72 col> 

WinHroax = NofPlinesSt-2; £24 or 48> 

£ Window is UinHmax+1 x WinWmax+1 points > 

WinStXtr = 11; 

WinStYtr = 11; 

WinStXSrch= 17; 

WinStYSrch= 17; 

WinStX : byte = 17; £5;> 

UinStY : byte = 17; £5;> 

WinSepXSrch= 0; 

UinSepYSrch= 0; 

WinSepXtr = 3; 

WinSepYtr = 3; 

WinSepX : byte = 0; £3;} 

UinSepY : byte = 0; 

WinHBy : byte = WinStYSrch+2*WinSepYSrch; £5;> 

WinWBxSrch= 2; 

WinUBxtr = 2; 

UinWBx : byte = UinUBxSrch; 

WinOfsX : word = 1; £5;> 

UinOfsY : word = 15; £5;> 

SlowDownXSrch = 2; £2;> 

SlowDownYSrch = 0; 

SlowDownXtr =1; £2;> 

SlowDownYtr = 0; 

SlowDownX : byte = SlowDownXSrch; £2;> 

SlowDownY : byte = SlowDownYSrch; 
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MscaLe = 20; 

HscaLeO =1; -C0.9;> 

HscaLel =1; 

Xrepos = 0.51; 

Yrepos = 0.51; 

Afters rchSW : word = 5; 

AfterSrchCT : word = 0; 

HainStar : byte = 1; 

StToDispL : byte = 8; 

TestMode : booLean=false; {true;> 

SearchXON : boolean=false; {true;> 

SearchYON : booLean=false; {true;> 

LineToShowMax : word = 10; 

LineToShowMin : word = 1; 

StarHove : booLean=false; 

StpAtN = 20; {10;> 

StpAtpointsMax = NofLsegments*StpAtN; 
■CStpAtpointsMax = NofSelements;> 098> 
StpAtLinesMax = 80; -C40;> 

■C search area/ hot spot rejection criteria > 

VoLtMax = 24; 

PixNotLook : word = 50; 

LineNotLook : word = 20; 

LineUreq : word =1; 

LineUreqmax : word = 30; 

LineGapRequired : word = 10; 

PixWreq : word = 1; 

PixWreqroax : word = 17; 


{ data type structure definitions for image data handling, > 
i search data storing, tracking windows and parameters, > 
-C housekiping data > 

Type 

TVoltages = arrayCO. .VoLtHax!] of word; 

TstpAtpoint = arrayCO. .StpAtpointsHax+1 3 of word; 
TstpAtpoints = arrayCO. .StpAtLinesMax] of TstpAtpoint; 
TMBank = ( Bank_A, Bank_B); 

TDataMout = arrayCI . .NofPointsMax] of byte; 

Tshift = ( PicShO, PicShI ); 

TshiftFloat = arrayCTshift] of float; 

Tshiftinteger = arrayCTshift] of integer; 

TDataMinSt = arrayCI . .NofOataSt] of word; 

TlnageLineSt = arrayCI . .NofLsegments] of TDataMinSt; 

TImageLinesSt = arrayCI . .NoflHLinesMaxSt] of TImageLineSt; 

TStlmageSt = TImageLinesSt; 

TPictureLineSt = arrayCI . .NofEinLineStD of word; 

TPictureLinesSt - arrayCI . -Nof PI inesSt] of TPictureLineSt; 

TStPictureSt = TPictureLinesSt; 


Um or discloaure of thoM SBIR data ia auluect to the reatriction on the title page of thia report 



TStAqPar=record 


NofAQPdump 

: word; 

NofAQpix 

: word; 

NofAQ lines 

: word; 

NofAQLdunp 

: word; 

NofNegLines 

: word; 

end; ■Crecord> 

TStUind=record 


UinTT : 

integer; 

UinBB 

integer; 

UinLL : 

integer; 

UinRR 

integer; 

Xcenter 

f loat; 

Ycenter 

f loat; 

XcenterP 

float; 

YcenterP 

float; 

UinChanged : 

boolean; 

end; {record} 

TStMagn=record 


ExpT 

: word; 

IntT 

: word; 

stm 

; float; 

StarIntNax 

: word; 

end; {record} 

TStCntr=record 


CntrX 

: float; 

CntrY 

: float; 


end; <record> 

TStBckgr=record 

BgUO, BgRO, BgTO, BgBO : float; 

BgLi, BgRi, BgTl, BgBl : float; 

BGradOX^ BGradOY, BGradIX, BGradlY: float; 

BgO/ Bg1/ Bg: float 
end; trecord> 

TStAux= record 

Xslw, XstLBy XendLB, XstRB, XendRB, Xsep^ YstB, YendB: integer; 
XstSt, XendSt/ Yslw, YstSt, YendSt: integer; 
end; ■Crecord> 

TStTest=record 
Xtest: word; 

Ytest: word; 

Htest: word; 
end; ■Crecord> 


TStarR=record 


StN 

word; 

St2N 

word; 

StPicture 

TStPictureSt; 

St Image 

TStlmageSt; 

StAqPar 

TStAqPar; 

Wind 

TStWind; 

Hagn 

TStMagn; 

Cntr 

TStCntr; 
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Bckgr : TStBckgr; 

StAux : TStAux; 

StTest : TStTest; 

end; ■Crecord> 

TStars6=record 
NofAQPdumpG : word; 

NofAQpixG : word; 

NofAQlinesG : word; 

NofAQLdunpG : word; 

NofStoLinesG : word; 

BB_DAC, BB_DAC0, BB_DAC6, 

BB_LED0w0, BB_LED1wO, BB>E00w6, BB_LED1w6, 

BB_LEDO, BB_LED1, BB_LED: floaty- 
end; {record> 

TStarR$=arrayCO. .NofStHax^ of TStarR; 

TStarS=record 
StarsG: TStarsG; 

StarRs: TStarRs; 
end; -Crecord> 

TstSearchD ^record 
LineGapB : word; 

LineB : word; 

Line! : word; 

LineM : word; 

Li new : word; 

LineGapT : word; 

PixGapL ; word; 

Pi XL : word; 

PixM : word; 

PixR : word; 

PixU : word; 

PixGapR : word; 

ExpF : word; 

Expo : word; 
end; 

TstSearchDA = arrayCO. .NofStMax] of TstSearchD; 

TStarSearchR=record 
StNfound : word; 

StNtracked : word; 

StNsearch : word; 

StExpHaxSrch: word; 

DAC3VTh : word; 

StNTofind : word; 

BadLines : word; 

StSearchDA : TstSearchDA; 
end; 

{ SIfNDef REMTST> 

{ variables storing housekiping data^ search data, inage data > 
{ and tracked star paraneters > 


<0ataSDl : TDataMout;> 
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{PDataSDI 
stars 

StpAtpoints 
Voltages 
StarSearch 
{. $EndIF> 

■C procedure for data initialization and DELAY procedure for remote system > 
procedure De lay (Dms: integer); 


: Pointer; > 

; TStarS; 

: TstpAtpoints; 
; TVoltages; 

: TStarSearchR; 


Implementation 


{ SIfNDef REHTST> 
function Power2(n:word):word; 
var 

i:word; 

P: longlnt; 
begin 

if i=0 then Power2:=1 
else 
begin 
P:=1; 

for i:=1 to n do P:=2*P; 
end; 

Power2:=P; 

end; 

procedure SetWindOfs; 
var 

ofs, i: integer; 
begin 

•C 

Ofs:= UinUmax div 2 - UinStX div 2 - UinSepX - UinUBx - SlowdounX 1; 
if Ofs>=0 then WinOfsX:=Ofs else WinOfsX:=0; 

Ofs:= UinHmax div 2 - WinStY div 2 - WinSepY * SlowdownY; 

if Ofs>=0 then WinOfsY;=Ofs else WinOfsY:=0; 

> 

for i:=0 to NofStMax do 
begin 

stars. StarRsCi].StN:=i; 

stars . Sta r Rs [ i ] . St2N : =Power2 ( i ) ; 

Stars . StarRsC i ] . W i nd . Ui nChanged: =t rue; 
end; 

stars . StarsG . BB_DAC ; =0; 
stars. StarsG.BB_LED:=0; 
end; 

•C $EndIF> 

{ SlfDef REHOTE > 
procedure DelaylOms: integer); 
var 

DeUms, OelNms: integer; 

begin 

DelNms:=52; 

Del1ms:~52; 
case Dms of 


Um or disclosuro of these SBIR daU is subject to the restriction on the title page of this report. 



0: 

1: begin 

for j:=0 to DeHns do 
begin 
end; 
end; 
else 
begin 

for i:=0 to Dms do 
begin 

for j:=0 to OeLNns do 
begin 
end; 
end; 

end; {else} 
end; -Ccase> 
end; 

{ $Else> 

•C 

procedure DeLay(Dns: integer); 
begin 

CRT.deLay(Dms); 

end; 

> 

< SEndlf > 

Begin 

C SIfNDef REMTST> 

{ROataSDI :=3DataS01;> 

SetUindOfs; 

StarSear ch , StNTof i nd : =1 ; 

•C $&tdlf> 

End. 
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Unit STaqsOI; CStaqSOI . pas> 


interface 

■C Initial I/O ports setting > 

<. 

procedure ByPassOPF; 
procedure ByPassON; 

} 

procedure SetPIOCByPass: boolean); 
inpleaentation 
uses 

STdefOl, StPCSeOI, StAQOI; 

(* 

procedure FillOataHSDCvar Data: TDataMout); 
var 

i, j: word; 

OK: boolean; 
begin 
■C OUT 1 > 

OK := falser- 
repeat 
begin 

Nofpoints := 2+NofPointslnt+NofPointsInt+2; 
if NofPoints>NofPointsMax then 
begin 

decCNof Pointslnt) ; 
end 
else 
begin 

OK := true; 
end; {else> 
end; {rep> 
until OK; 

j := 1; 

DataCj3 := SD63pR; 

Inc(j); 

Data[j3 := SD63pR; 

Inc(j); 

for i := 1 to NofPointsInt do 
begin 

< Dual slope Integrator > 

DataCj] (IntSample) S0Glp; 

Inc(j); 

end; 

for i := 1 to NofPointsInt do 
begin 

DataCj] := (IntSample+lntPolPos) -t- SDG2p; 

Inc(j); 

end; Cfor> 

DataCj] := ADstop + IntHold + AD_CS + SDG2p; 
Inc(j); 

DataCj] := IntHold AD_CS + S0G2p; 
end; 


procedure SetPIOCByPass: boo lean); 
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begin 

■CSIfNDef REMOTE > 

PortCPI0_W0]:=$92; { Ports A & B inpts, C out node 0 > 
•CTo be removed > 

PortCPIO_U23:=$92; -C Ports A & B inpts^ C out mode 0 > 
tSEndlf > 

PortCPIO_Wl]:=$80; { Ports A, B & C outs mode 0 > 

(* 

If By Pass then 
begin 

PCS6_ToByPass; 

PortCPI0_U23:=$80; i. Ports A/ B ft C outs mode 0 > 
end 
else 
begin 

PortCP10_W2]:=$92; { Ports A & B inpts, C out mode 0 > 
end; 

*) 

end; 

(* 

procedure ByPassOFF; 
begin 

PortCPI0_W2]:=$92; < Ports A & B inpts, C out mode 0 > 

end; 

procedure ByPassON; 
begin 

PCSG_ToByPass; 

PortCPI0_W23:=$80; { Ports A & B outs, C out mode 0 > 
end; 

*) 

procedure SetPlOouts; 
begin 

{$lfN0ef REMOTE > 

PortCP10_A03:=0; 

PortCP10_B03:=0; 

PortCPI0_C03:=0; 

PortCPIO_Al3:=0; 

PortCPI0_B13:=0; 

PortCPI0_Cl3:=0; 

PortCPIO_A23:=0; 

PortCP10_B2D:=0; 

PortCPIO_C23:=0; 

•CSELse > 

PortCPI0_Al3:=0; 

PortCP10_B1D:=0; 

PortCPI0_C13:=0; 

«EndIf > 
end; 


Begin 

tSlfNDef REMTST > 

SetPlOouts; 

SetPIO(True); 

LedOff; 

<FiUDataMSD(0ataS01);> 

{SEndlf > 

End. 
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Unit STaqOI; £STaq01 . pas> 


{ procedure controlling CCD, data transfer/ and data digitalization > 

■C procedures for software enulation of existing hardware - for > 

-C perfortRance cooparision > 

Interface 

uses 

STdefOl; 

procedure GenSynch; { Synchronization with osciloscope for testing > 

{ LED low level > 
procedure LedOn(N:word); 
procedure LedOff; 

CSIfNDef REMOTE > 

•C For5 PC only - memory refresh control > 
procedure ONmemRef resh; 
procedure OFFmemRefresh; 

{SEndlf > 

■C Software emulator > 


<* 

procedure ABClockASNCHN: word; Ml: byte); 
procedure TransfT; 
procedure TransfO; 
procedure Transfl; 
procedure Transf2; 
procedure TransfS; 
procedure Shift1_3inA; 
procedure Shift1_3inB; 

procedure ShiftLines1_3ASH(NL: word; MB: byte); 
procedure StorelMlinesASMCNL: word; MB: byte); 
procedure SOclearASMCNT: word); 

procedure Get1_3lMlineASMSt(var DataMin : TDataMinSt; UinU: word ); 
procedure ClearlmageAndStorage(Times: word); 

*) 

{ A to D conversion control > 

procedure AccuireUpictureStlvar Star: TStarR); 

{ calculating CCD clocking to get selected windows > 
procedure SetAccuisitionParStlvar Star: TStarR); 

■C Search control > 
function FastSearchAQ:word; 

{ Low level 1/0 > 
function Ana lOrData: byte; 

{ Housekiping data accuisition > 
procedure SetMuxOCh(n:byte); 
procedure SetMuxOintBuffOut; 

■C Antibluming clocking control > 
procedure SetAB6I_0N; 
procedure SetAB6I_0FF; 

■C CCD interlacing control > 
procedure SetlA61_0N; 
procedure SetlAGI_OFF; 

<. 
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function ADmuxKde L: word ): word; 

> 

Impleaentation 

uses 

StAuKOI, StPCSGOI, StAqsOI; 

procedure GenSynch; 
begin 

PortCSynchDr3:=PortCSynchDr3 or SynchB; 
Port[SynchOr]:=:PortCSynchDr] and not SynchB; 
end; 

procedure LedOn(N:word); 
var 

nnrbyte; 
begin 
case N of 

0 : nn:=$0; 

1 : nn:=$1; 

2 : nn:=$1+S2; 

3 : nn:=$1+$2+$4; 

4 : nn:=$1+$2+$4+$8; 
else 

nn:=$0; 
end; <[case> 

Port£LedDr]:=( PortCLedOr] or LEDsOFF ) and not nn; 
end; 

procedure LedOff; 
begin 

PortELedOr]:=PortCLedDr] or LEDsOFF; 
end; 

function Ana lOrData; byte; 
begin 

Anal0rData:~PortCAnaLDr3; 

end; 

procedure SetABGl^ON; 
begin 

PortCAnal0r3:=PortCAnaLDr] or AB61; 
end; 

procedure SetABGl_OFF; 
begin 

PortCAnalDr3:=PortCAnaL0r] and not ABGI; 
end; 

procedure SetIAGI_ON; 
begin 

Port[AnaLDr3:=Port[AnaLOr3 or lAGI; 
end; 

procedure SetIAGI_OFF; 
begin 

PortCAnaLDr]:=PortCAnaLDr] and not lAGl; 
end; 
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procedure SetNuxOCh(n:byte); 
begin 

PortCAnalDr3:=(PortCAnalDr] and not HuxOaddrMask) or MuxEnO or <n and MuxOaddrHask); 
end; 

procedure SetNuxOlntBuffOut; 
begin 

PortCAnalDr3:=(PortCAnalDr] and not MuxOaddrHask) or HuxEnO or HuxOChIntBuffOut; 
end; 

CSIfNDef REMOTE > 
procedure OFFmemRef resh; 
begin 
ASM 


cLi 


a»v 

al, 54h 

out 

01 

nov 

AL^ 0 

OUT 

end; 

end; 

41H, AL 

procedure ONfflemRefresh, 
begin 
ASM 

mov 

aL,54h 

out 

43h,aL 

mov 

AL,18 

OUT 

sti 

end; 

end; 

41H^AL 


tSEndlf > 


(* 

t$G+> 

procedure ABClockASH<MH: word; ML: byte); 
begin 
ASH 
cLi 


push 

bp 



mov 

dx. 

PDriver 


mov 

al/ 

PDABp 


mov 

ah. 

PDABn 


mov 

cL/ 

Ml 

{ Ml = PDIn , or Ml = PDinM > 

mov 

ch. 

cl 


or 

ax. 

cx 

{ modify al and ah ffor Hidle level > 

mov 

bx. 

ABinnerL 


mov 

cx. 

HH 


32: 




mov 

bp. 

cx 

< save cx > 

mov 

cx. 

bx 

tcx;=ABinnerL> 

31: 




out 

dx. 

al 

<. PDABp > 

xchg 

al. 

ah 


out 

dx. 

al 

t PDABn > 

xchg 

al. 

ah 


loop 

31 




Use or di«cloeur« of theoe SBIR data is aulgect to the restriction on the title page of this report. 



nov 

cx. 

bp 

{ Restore cx > 

loop 

32 



BOV 

al. 

PDn 


out 

dx. 

al 

{ AB HL > 

pop 

bp 



sti 




end; 





end; 

<$G-> 


<$G+> 

procedure TransfT; 
begin 
ASH 


cli 



t3> 


BOV 

dx. 

SOriver 

{5> 


BOV 

al/ 

SDTRpR 

•C5> 


BOV 

bt/ 

SDnR 

{5J 


out 

dx/ 

al 

C3> 

< SOTR P > 

xchg 

al/ 

bl 

{3> 


out 

dX/ 

al 

{3> 

{all N> 

sti 



<2> 


end; 


•Ctot 

40> 



end; 

{$G-> 


{$G+> 

procedure TransfO; 
begin 
ASH 


cli 



{3> 


nov 

dx. 

SDriver 

{5> 


nov 

al/ 

SDGpR 

{5> 


nov 

bl/ 

SDnR 

{5> 


out 

dx. 

al 

•C3> 

{ SDGp > 

xchg 

al. 

bl 

{3> 


out 

dx. 

al 

■C3> 

{all N> 

sti 



{2J 


end; 



{tot 40> 



end; 

{$ 6 -> 


C$G+> 

procedure Transfl; 
begin 
ASH 


cli 



{3> 


BOV 

dx. 

SDriver 

{5> 


nov 

al/ 

SDGpR 

{5> 


nov 

ah/ 

SDTRpR 

{5> 


nov 

bl/ 

SDnR 

{5> 


out 

dX/ 

al 

{3> 

{SDGp> 

xchg 

al/ 

ah 

{3> 


out 

dX/ 

al 

{3> 

{SDTRp> 

xchg 

al/ 

ah 

{3> 


out 

dx. 

al 

{3> 

{SDGp> 

xchg 

al/ 

bl 

{3> 


out 

dx. 

al 

{3> 

{all N> 
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sti -C2> 

end; -Ctot 40> 

end; 

£$G-> 


£$G+> 

procedure Transf2; 
begin 
ASM 


cli 



£3> 



nov 

dx. 

SDriver 

£5> 



nov 

al. 

SDGpR 

£5> 



nov 

ah/ 

SOTRpR 

£5> 



nov 

bl. 

SDnR 

£5> 



out 

dx. 

al 

£3> 

£SDG_ 

P> 

xchg 

at/ 

ah 

£3> 



out 

dx. 

al 

<3> 

CSOTR 

P> 

xchg 

al. 

ah 

£3> 



out 

dx. 

al 

£3> 

CSDG_ 

P> 

xchg 

al. 

ah 

£3> 



out 

dx. 

al 

£3> 

CSOTR 

P> 

xchg 

al. 

ah 

£3> 



out 

dx. 

al 

£3> 

CS0G_ 

P> 

xchg 

al. 

bl 

£3> 



out 

dx. 

al 

£3> 

Call 

N> 

sti 



•C2> 



end; 


•Ctot 

52> 



end; 






£$G-> 







C$G+> 






procedure 

Transf3; 




begin 






ASM 






cli 



C3> 



nov 

dx. 

SDriver 

C5> 



nov 

al. 

SDGpR 

C5> 



nov 

ah. 

SOTRpR 

C5> 



nov 

bl. 

SDnR 

C5> 



out 

dx. 

al 

C3> 

CSDG_ 

P> 

xchg 

al. 

ah 

C3> 



out 

dx. 

al 

C3> 

CSDTR 

P> 

xchg 

al. 

ah 

C3> 



out 

dx. 

al 

C3> 

CSDG_ 

P> 

xchg 

al. 

ah 

C3> 



out 

dx. 

al 

C3> 

CSDTR 

P> 

xchg 

al. 

ah 

C3> 



out 

dx. 

al 

C3> 

CS0G_ 

P> 

xchg 

al. 

ah 

C3> 



out 

dx. 

al 

C3> 

CSDTR 

P> 

xchg 

al. 

bl 

C3> 



out 

dx. 

al 

C3> 

Call 

N> 

sti 



C2> 



end; 


Ctot 

64> 



end; 






<$G-> 






C$G+> 
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procedure 

Shift1_3inA; 





begin 






ASM 






cLi 






DOV 

dx, PDriver 





BOV 

al^ PDSAGIp 

t5> 




BOV 

ah/ POn 

<5> 




out 

dX/ aL 



SI 

P > 

xchg 

al/ ah 

ay 




out 

dX/ aL 

ay 

<. 

PD 

n > 

sti 


ay 




end; 

■Ctot 

19> 




end; 






{$6-> 






<$G+> 






procedure 

Shift1__3inB; 





begin 






ASM 






cli 


ay 




BOV 

dx, PDriver 

C5> 




mov 

al/ PDSAG2p 

{5> 




mov 

ah/ PDn 

{5J 




out 

dX/ aL 

ay 

<. 

S2 

P > 

xchg 

al/ ah 

ay 




out 

dX/ al 

ay 

< 

PD 

n > 

sti 


ay 




end; 

Otot 

19> 





end; 

<$G-> 


{$6+> 

procedure StorelMLinesASH(NL: word; MB: byte); 
begin 

if (NL=0) or TestNode then EXIT; 

ASM 


cli 

nov 

al/ 54h 

out 

43h/ al 

BOV 

AL/ 0 

OUT 

41 H/ AL 

BOV 

CX/ ML 

push 

bp 

BOV 

ah/ MB 

BOV 

al/ SDGpR 

BOV 

si/ ax 

BOV 

dX/ SDriver 

BOV 

di/ dx 

BOV 

dX/ PDriver 

BOV 

bl/ SDTRpR 

BOV 

bh/ PDhABb 

BOV 

dX/ SDriver 

BOV 

aX/ si 

out 

dX/ ax 

BOV 

aX/ bx 
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out dx, ax 

mov al^ SDnR 

out dx, al 

mov dx, PDriver 

32: 

xchg dx, di CS0river> 

nov bp^ cx -CStore cx> 

nx)v CX/ NofLSegnents 

S1: 

mov aX/ si 

out dX/ ax 

mov aX/ bx 

out dX/ ax 

mov al/ SDnR 

out dX/ al 

Loop ai 

mov cX/ bp 

xchg dX/ di {PDriver> 

mov aL/ PDlMpABm 

out dX/ al 

mov al/ bh 

out dX/ aL 

Loop 32 

mov dX/ SDriver 

mov CX/ NofLSegments-*- 2 

33: 

mov aX/ si 

out dX/ ax 

mov aX/ bx 

out dX/ ax 

mov aL/ SDnR 

out dX/ aL 

Loop 33 

mov ah/ PDn 

out dX/ ax 

pop bp 

mov aL/54h 

out 43h/aL 

mov AL/18 

OUT 41H/AL 

sti 
end; 
end; 

-C$G-> 

{$G+> 

procedure ShiftLines1^3ASM(NL: word; MB: byte); 
begin 

if NL=0 then EXIT; 

ASM 


cLi 



mov 

aL/ 

54h 

out 

43h/ 

aL 

mov 

AL, 

0 

OUT 

41H/ 

AL 
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nov 

ah, MB 

nov 

aL, SDTRpR 

nov 

si/ ax 

nov 

al/ SDnR 

nov 

ah/ POn 

nov 

di/ ax 

nov 

bl/ SOGpR 

nov 

bh/ PDn 

nov 

dX/ SDriver 

mov 

CX/ NL 

ai: 


nov 

aX/ si 

out 

dX/ ax 

nov 

aX/ bx 

out 

dX/ ax 

nov 

aX/ di 

out 

dX/ at 

Loop 

ai 

mov 

aL/54h 

out 

43h/al 

mov 

AL/18 

OUT 

41H/AL 

sti 


end; 



end; 

tSG-> 


{SG+} 

procedure SDclearASN(NT: word); 


begin 






ASH 






cli 






nov 

al/ 54h 





out 

43h/ al 





nov 

AL, 0 





OUT 

41 H, AL 





nov 

dx, SDriver 





mov 

CX/ NT 





mov 

ah, SOGIpR 





nov 

bl/ $DG2pR 





mov 

bh, SDG3pR 





ai: 






nov 

al, bh 





out 

dx, al 


SDG3 P, 

IntReset 

> 

nov 

al, ah 





out 

dx, al 

<. 

SDG1 P, 

IntReset 

> 

nov 

al, bl 





out 

dx, al 

■C 

SDG2 P, 

IntReset 

> 

loop 

ai 





nov 

al, SDnR 





out 

dx, al 

{ 

SDn > 



nov 

al,S4h 





out 

43h,al 





nov 

AL,18 





OUT 

41H,AL 
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sti 

end; 

end; 

<$G-> 

<$6+> 

procedure Get1_3lMLineASMSt(var DataMin : TDataMinSt; UinU: word ); 
begin 

£GenSynch;> 


ASK 


cld 


cLi 


nov 

al, S4h 

out 

43h, aL 

nov 

AL, 0 

OUT 

41 H, AL 

-Cnov 

dx, SDriver> 

nov 

bx, UinU 

Les 

di/ DataKin 

Ids 

si/ POataSDI 

nov 

aX/Si 

push 

bp 

nov 

bp/ Nof Points 

nov 

si/ax 

nov 

CX/ bp 

nov 

dX/ SDriver 

rep 

outsb 

dec 

bx 

cnp 

bx/ 0 

je 

33 

ai: 


nov 

si/ax 

nov 

CX/ bp 

nov 

dX/ SDriver 

rep 

outsb 

nov 

dX/ ADCouts 

insw 


dec 

bx 

cnp 

bX/ 0 

jne 

31 

33: 


nov 

CX/ 3 

32: 


nop 


Loop 

32 

nov 

dX/ ADCouts 

insw 


nov 

aL/ SDnR 

nov 

dX/ SDriver 

out 

dX/aL 

pop 

bp 

nov 

aL/S4h 

out 

43h/al 

nov 

AL/18 

OUT 

41H/AL 

sti 


end; 



end; 
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{$S-> 


procedure CLearlmageAndStorage(Tines: word); 
var ZZ/ ii : word; 
begin 

if Tiaes>0 then 
begin 

■for 11 := 1 to Times do 
begin 
C 

Stor elH L i nesASM (Nof A2 L i nes-H 0, PDMSI pABm) ; 
StorelM I i nesASH(Nof A2 L i nes+1 0/ PDMS2pABm) ; 

J 

■C6enSynch;> 

StoreSi PCSG ( Nof A2 L i nes-f 1 0) ; 

StoreS2PCS6 (Nof A2 L i nes+10) ; 
end; •Cfor} 
end; 

TransfSPCSG; 

•C 

ByPassON; 

T ransf 3; 

> 

end; 

procedure CLearlmageAndStorageandSRdimes: word); 
var 2Z, ii : word; 
begin 

if Tines>0 then 
begin 

for 2Z := 1 to Times do 
begin 
■C 

StorelM I i nesASMCNof A2 L i nes+1 0, PDMSI pABm) ; 
StoreIMlinesASM(NofA2Lines+10^ PDMS2pABm); 
J 

-C6enSynch;> 

StoreSi PCSG (Nof A2 L i nes+10) ; 

StoreS2PCSG ( Nof A2 L i nes+10) ; 
end; ■Cfor> 
end; 

Transf3PCSG; 

t 

ByPassON; 

Transf3; 

> 

SDclearPCSG(NofSelements+NofDLpixels); 

end; 


proceAire AccuireUpictureSt(var Star: TStarR); 
var 

ZZ, ZZZ^ i, Neg: word; 
begin 

<GenSynch;> 

Anal_0N; 

LoadDAC(DAC1V,1); 
with Star, Star.StAqPar do 
begin 

Neg: =Nof LsegmentsANof NegLines; 
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if not testHode then 
begin 

{ShiftLines1_3ASM(NofLsegiaents*2, PDMS2p);> 

ShiftBLines1_3_PCS6(NofLsegaents*2); C 2 empty Lines due to 1+5 pulses > 

Tpansf3PCS6; 

<. 

ByPassON; 

Transf3; 

> 

-CGenSynch;> 

{SDc LearASH (3*Nof Se Lements) ; > 

SDclearPCSG(3*NofSeLements+40); 

{ByPassON; > 
end; 

{GenSynch; > 

for ZZ := 1 to NofAQLines do 
begin 

for ZZZ := 1 to NofLsegments do 
begin 

if Neg-0 then 
begin 

■Cif Star.StN=0 then GenSynch;J 
■CTransf1PCSG;> 

{Transf1;> 

■CByPassON;> 

■CShift1_3inB;> 

{Transf2PCSG;> 

{if Star.StN=3 then GenSynch;J 
Shi f t1_3i nBt r2_PCSG; 

{Transf2;> 

end 

else dec(Neg); 

{Gen Synch; > 

if NofAQPdump>0 then SDclearPCSGCNofAQPdump); 

{SDclearASHC Nof AQPdunp ) ; > 

{ByPassON; > 

{GenSynch;> 

{if Star.StN=0 then GenSynch;> 

{Get1_3lNlineASNSt( StlnageCZZ^ZZZ]^ NofAQpix );> 

{Get1__3lMlinePCSGSt( StImage{ZZ,ZZZ3, NofAQpix >;> 

GetPixADCwait_PCSG( StlnageCZZ^ZZZ], NofAQpix ); 

TransfIPCSG; 

SDclearPCSG(NofOLpixeLs); 

{SDcLearASN(NofSelenents);> 

{ByPassON; > 
end; {for> 
end; {for> 
end; {with> 

{AnaL_,OFF;> 

end; 

function FastSearchAQiword; 
var 

I, ZZ, ZZZ, Nstp, NstpTotaL, i, ii, j: word; 
xpoint, ypoint: word; 

StpAtp: TstpAtpoint; 
jinc; boolean; 

OnlyCLear: boolean; 
begin 

{6enSynch;> 
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AnaLJJN; 

SetHuxOlntBuffOut; 

{ByPsssON;> 

LoadOAC(DAC3V,3); 

OnlyCLear:=false; 

-COnlyClear : =true; > 

{GenSynch;> 

{delay (5000) ;> 

{SDclearASN(NofSeleoents*3);> 

SDc LearPCS6(Nof Se Lenents) ; 

{ByPassON;> 

{ByPassON;> 

for j:=0 to StpAtLinesHax do 
begin 

StpAtPointsC j , StpAt poi nts«ax+1 ] : =0; 
for i:=0 to 3*StpAtN do 
begin 

StpAt Po i nts C j , i 3 : =0; 
end; 
end; 
j:=1; 

NstpTotaL := 0; 
for Z:=0 to 1 do 
begin 

for ZZ := 1 to NofA2 Lines do 
begin 
ii:=1; 

for ZZZ := 1 to NofLsegments do 
begin 

{GenSynch;> 

{TransflPCSG;> 

{Transfl;} 

{ByPass0N;> 

{if Z=0 then Shift1_3inA else Shift1_3inB;> 

{GenSynch;> 

if Z=0 then Shift1_3inAtr2_PCSG else Shift1_3inBtr2_PCSG; 

{GenSynch; > 

{Transf2PCSG;> 

{Transf2;> 

GenSynch; 

{SDcLearASH(NofSeleaents);> 

if OnLyCLear or ((Z=0) and (ZZ<=LineNotLook>) then 
begin 

SDcLearPCSG(NofSelements); 

Nstp:=0; 

end 

else 

begin 

if PixNotLook>0 then 
begin 

SDclearPCSG(PixNotLook); 

Nstp;=SDcLearPCS6stop(NofSeleflients-PixNotLook/ StpAtN, StpAtp); 
end 

else Nstp:=SDclearPCSGstop(NofSeleaents^ StpAtN, StpAtp); 
end; 

if not OnlyClear and (Nstp>0) then 
begin 

jinc:=true; 

y poi nt : =2* ( ZZ+ Z*Nof A2 I i nes ) -1 ; 

StpAtpointsCj,03:=ypoint; 
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NstpTota L : =NstpTota L+Nstp; 

StpAtpoi nt s C j , StpAtpoi ntsMax+1 3 : =StpAtpoi ntsC j , StpAtpoi ntsHax+1 3+Nstp; 
if Nstp>StpAtN then 
begin 

Nstp:=StpAtN; 

StpAtpoi ntsCj / StpAtpointsHax+13 :=999; 
end; 

if StpAtpoi ntsCj, StpAtpoi ntsMax+13>999 then 
StpAtpoi ntsC j / StpAtpoi ntshax+1 3 :=999; 
for i:=1 to Nstp do 
begin 

xpoi nt : =Nof Lsegnents*( StpAtpC i 3-1 )-*-ZZZ; 

if ii<=3*stpAtN then StpAtpointsCj,ii3:=xpoint; 

inc(ii); 

end; 

end; <if> 

-CByPassON;> 
end; <for> 
if jinc then 
begin 

if (j<StpAtLinesHax) then 
begin 
inc(j); 
end 
else 
begin 

OnlyC Lear:=true; 

NstpTota I : =9999; 
end; 

jinc:=false; 
end; {if> 
end; {for> 
end; tfor> 

StpAtPointsC0,03:=j-1; 

Fast SearchAQ : =NstpTota I ; 

StpAtPoi ntsCO, 1 3 : =NstpTota 1; 

Anal_OFF; 

end; 

procedure SetAccuisitionParStCvar Star: TStarR); 
begin 

with Star. Wind, Star.StAqPar do 
begin 

if (UinBB>0) then 
begin 

NofAQLdump := word( (UinBB-1) div 2 ); 

NofAQLines := word( (WinTT+1) div 2 - (WinBB-1) div 2 ); 

NofNegLines:= 0; 
end 
else 
begin 

NofAQLdump := 0; 

NofAQLines := wordC (WinTT+1) div 2 + (Abs{WinB8)+2) div 2 ); 

NofNegLines:= (Abs(WinBB}+2) div 2; 

end; 

NofAQPdump := wordC (WinLL-1) div 3 ); 

NofAQpix := wordC (WinRR+2) div 3 - (WinLL-1) div 3 ); 
end; {with> 
end; 
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cs+> 

function AOBHJxKdeL: word): word; 
const 
Refi=10; 
var 

AO: word; 

begin 

< 

PortCS0river3:= (SDn or IntReset) and (not ADstop); 

i:=0; 

repeat 

AD:*PortWCSDriver3 and (8192-1); 
inc(i); 

until (AD>4095) or (i>Rep); 

PortCSDriver]:^ SDn or IntReset or ADstop; 

> 

PortCPDriver]:= PDn or PObhixAO; 
for i:=0 to del do begin end; 

PortCSDriver3:= (SDn or IntReset) and (not ADstop); 

i :^0; 

repMt 

AO:=PortWCSOriver] and (8192-1); 
inc(i); 

until (AD>4095) or (i>Rep); 

PortCSDriver]:= SDn or IntReset or ADstop; 
PortCPDriver3:= PDn; 

ADnux1:=AD and 4095; 
end; 

{ 6 -> 

*) 


Begin 

End. 
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Unit STMainOI; -CSTMalnOI ,pas> 


{ CCD data deccxiing/ tracking windows location > 

Interface 

uses 

StOefOl; 

procedure ProcessPictureStCvar Star: TStarR); 
procedure SetWindowStarslvar Stars: TStars); 
procedure SetUindowBorder(var Stars: TStars); 
procedure IntWindowStarsCvar Stars: TStars); 

Inpleaentatlon 

uses 

STaflpI, STPpicOI, StCpic04; 

{ Set TEST and Happing window location > 

procedure SetIntStar(var Star: TStarR); 
begin 

if Star.StN=0 then 
begin 

with Star. Wind, Star.StTest do 
begin 

if StarSearch.StNfound>=1 then WinLL:= DAC_LED_Pos 
else UinLL:=2S; 

WinBB : =0-DAC_Li ne_Dr+1 ; 

Wi nRR : =Wi nLL+S lowOownXt r+DAC_LED_Wi dth-1 ; 

WinTT:=UinBB+DAC_Line_Dr+4+LED_Line_8r; 

XcenterP:=round((WinLL+WinRR)/2); 

Ycent erP := round (( W i nBB+W i nTT ) /2 ) ; 

Ui nChanged : =t rue; 
end; {with> 
end 
else 
begin 

if StarSearch.StNfound>=Star.StN then 
begin 

with Star. Wind/ Star.Cntr do 
begin 

XCenterP:=StarSearch.StSearchDACStar.StN3.pixM; 
YCenterP :=Star Search . StSearchDACStar . StN] . Li neH; 
WinChanged : St rue; 
end; <with> 
end 
else 
begin 

with Star. Wind, Star.StTest do 
begin 

UinLL:=1156;{1168;> 

UinBB:s960; 

Wi nRR : swi nLL+Wi nWaax; 

WinTT:sWinBB+WinHmax; 

XcenterP:=round((WinUL+UinRR)/2); 

YcenterP;=round((WinB8+WinTT)/2); 

Xcenter : =XcenterP; 

YCenter : =Ycenter P; 
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Ui nChanged : =t rue; 
end; •Cwith> 
end; 

end; {else} 
end; 

procedure SetWindowStars(var Stars: TStars); 
var 

i: byte; 
begin 

for i:=1 to NofStEnd do 
begin 

if Stars. StarRsEi]. Wind. WinChanged then 
begin 

SetUindows(Stars.StarRsEili); 

SetAccuisitionParSt(Stars.StarRsCi3); 

Sta rs.StarRsEi].Wind.Ui nChanged : =f a Ise; 
end; 
end; 
end; 

procedure SetWindowBorderCvar Stars: TStars); 
var 

i: byte; 
begin 

if AfterSrchCT<=AfterSrchSW then 
begin 

WinStX:=WinStXSrch; 

WinStY:=WinStYSrch; 

UinSepX:=WinSepXSrch; 

WinSepY:=UinSepYSrch; 

Ui nUBx : =Ui nUBxSrch; 

WinHBy:= UinStY+2*UinSepYSrch; 

•CIntWindowStars(Stars);> 

end 

else 

begin 

U i nStX : =Ui nStXt r ; 

WinStY:=WinStYtr; 

UinSepX:=UinSepXtr; 

U i nSepY : =U i nSepYt r ; 

UinUBx:=UinUBxtr; 

UinHBy:= WinStY+2*UinSepYtr; 

SLowDownX:= SLowDownXTr; 

if BcgrToAdj then BcgrToAdjWas;=true else BcgrToAdjUas:=faLse; 

if DebugDsplHode then DebugDspLHodeUas:=true else DebugDsplHodeUas:=false; 

end; 

for i:=1 to NofStEnd do 
begin 

SetUindows(Stars.StarRs[i]); 

< 

SetAccuisitionParSt(Stars.StarRsEi]); 

Stars. StarRsCi]. Wind. UinChanged:=faLse; 

> 

end; 

end; 

procedure lntUindowStars(var Stars: TStars); 
var 

i: byte; 
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begin 

for l:=0 to NofStTrack+1 do 
begin 

SetIntStar ( Stars . Sta r RsC i 3 ) ; 

Settli ndous ( Stars . Sta rRsCi ]) ; 

SeCAccuisitlonParStCStars.StarRsCil); 

end; 

if DebugDspLHode then DebugDspLNodeUas:=faLse; 
end; 


procedure ProcessPictureSt(var Star: TStarR); 


begin 

if not HLevelTgL then RepackPlcSt(PicNoShift, Star) 
else RepackPicSt(PicShifted, Star); 


end; 


Begin 

ClntffindowStars ( Stars) ; > 
End. 
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unit STPpicOI; -CSTPpi cOI . pas> 


{ Exposure^ inage storing^ search and inage data decoding > 

Interface 

uses 

StDefOl; 

procedure StoreStarslmageSt(ExposureTime:word); 
function StoreFastSear ch C Exposure! i ne: word) : word; 
procedure RepackPicStC Lshift: boolean; var Star: TStarR); 


Inplenentation 

uses 

STaqOI, StAQSOI, StPCSGOI; 


function PutlnAOrange(AD:word):word; 
begin 

PutInADrange := AD {mod Bits12>; 
end; 


{ Control exposure time, LED On time, antibluming > 
procedure ExposureC ExposureTime: word; Lshift: boolean ); 
var 

LT: word; 
begin 

if Lshift then 
begin 

LT:=LedTimeO; 

SetIAGJ_ON; 

end 

else 

begin 

LT:=LedTi«e1; 

SetlAGI_OFF; 

end; 

if AntiBl then 
beg i n 

if ExposureTime <= LT then 
begin 

ABGC lockPCSGC Exposure! i me) ; 
end 
else 
begin 

if LT>0 then 
begin 

ABGClockPCSGCLT); 

end; 

LedOFF; 

ABGC LockPCSG < Exposure! i me-L!) ; 
end; 
end 
else 
begin 

if ExposureTime <= LT then deLay(ExposureTime) 
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else 

begin 

if LT>0 then delay(LT); 

LedOFF; 

if ExposureTi«ie-LT>0 then delay(ExposureTi«e-LT); 
end; 

end; {else> 

SetlAGI^OFF; 

LedOFF; 

end; 


{ Decode pixel data for single image line > 
procedure RepackLineStlSl, Dl: word; var Star: TStarR); 
var 

ix, i, ixx, j: word; 
begin 

with Star, Star.StAqPar, Star. Wind do 
begin 

j := 1; 

for ix := 1 to NofAQpix do 
for i := 1 to NofLsegments do 
begin 

ixx:=3*Nof AqPdump+3*(ix“1 )+i; 
if (ixx>=WinLL) and (ixx<=WinRR) then 
begin 

StPictureCDL, j] := PutlnADrangel StImageCSL,i,ix3 ); 
lnc<j); 
end; Cif> 
end; {for> 
end; Cwith> 

end; 


{ Decode image window data > 

procedure RepackPicStC Lshift: boolean; var Star: TStarR); 
var 

iy/j/ 1/ iL/ iLl: word; 
iyy, iyn: integer; 
begin 

j := 1; 

with Star.Uind do 
begin 

if Lshift then il := 1 else il := 0; 
if odd(UinBB) then 
begin 

if Lshift then ill := 1 else ill := 0; 
end 
else 
begin 

if Lshift then ill := 0 else ill := 1; 
end; 

end; -Cwith> 

with Star.StAqPar, Star.Uind do 
begin 

for iy := 1 to NofAQlines do 
begin 

iyy := 2*(NofAQLduap) + 2*(iy-1) + il + 1; 
iyn :» iyy - 2*NofNegLines; 
if <iyn>=Win8B) and (iyn<=WinTT) then 

Um or disdoaure of theae SBIR data is sulyect to the restriction on the title page of this report 



begin 

RepackLineStdy, j+UL, Star ); 
Inc(j,2); 
end 
else 
begin 
end; 

end; <for> 
end; -Cwith> 


■C Control Exposure and image transfer > 

{ store tracking windows and dump rest of image > 
procedure StoreStarslmageSt ( Exposure? i me : word) ; 
var 

i: byte; 
begin 

ClearlandS_PCSG(1); 
if not NlevelTgl then 
begin 

if LedUindow and (LedTime1>0) then LedON(LedNum); 

<GenSynch;> 

Exposure( ExposureTime, PicNoShift ); 
end 
else 
begin 

if LedUindow and (LedTime0>0} then LedON(LedNum); 

Exposurel ExposureTime, PicShifted ); 
end; 

with stars. StarsG do 
begin 

NofAQLdumpG :=0; 

NofAQPdumpG :=0; 

NofStoLinesG:=0; 

■CGenSynch;> 

for i :=Nof StStart to NofStEnd do 
begin 
i 

ByPassON; 

SetABGI_ON; 

if i=0 then GenSynch; 

Storelh linesASH ( Stars . StarRsli 1 . StAqPar . Nof AQLdump-Nof AQLdumpG/ PDMS1 pABm) ; 

StorelH I i nesASH (Stars . StarRsC i 3 . St AqPa r . Nof AQl i nes- 
Stars . StarRsL i 3 . StAqPar . Nof NegLines, PDNS2pABm}; 

SetABGI_OFF; 

> 

SetABGl.ON; 

<if i=0 then GenSynch; > 

StoreS1PCS6(Stars.StarRsCi3. StAqPar. Nof AQLdump-NofAQLdumpG); 

Stor eS2PCSG ( Stars . Sta r RsC i 3 . StAqPar . Nof AQl i nes' 

Sta rs . StarRsC i 3 . StAqPar . Nof NegLi nes) ; 

SetABGI_OFF; 

Nof StoLinesG:=Nof StoLinesG-t-(Stars. StarRsCi3. StAqPar. Nof AQlines- 

Stars . StarRsCi 3 . StAqPar . Nof NegLi nes) -•■2; 

Nof AQLdumpG:=Stars. StarRs[i3 . StAqPar.Nof AQLdump4■ 

Stars.StarRsCi3.StAqPar.NofAQlines’■ 

Stars. StarRsLi 3 . StAqPar .Nof NegLi nes; 

end; {for> 
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'OiienSynch;> 

{ 

e^rPassON; 

SfctftLines1_3ASM(NofLsegBents*(NofA2Lines-NofStoLinesG), PDHS2p); 

> 

Siif tBl i nes1^3^PCSG (Nof Lsegments*( Nof A2 1 i nes-Nof StoLi nesG) ) ; 
od; <w1th> 
end; 


-C Store image for scan > 

function StoreFastSearch(ExposureTime:word) :word; 
var 

i: byte; 
begin 

<Gai5ynch;> 

aearIandS_PCS6(2); 

-CGofiynch;> 

Ledfinel : =LedTi me1 S rch; 

if LedUindow and (LedTine1>0} then LedON(LedNua); 
ExposureC ExposureTime, {PicShifted> PicNoShift ); 
{GemSynch;> 

ShiftA L i nes1_3_PCSG(Nof A2 L i nes+1 0) ; 

ShiftSl i nes1_3_PCSG(Nof A2 Li nes+10); 
StoreSlPCSG(NofA2Lines); 

StoreS2PCSG (Nof A2 Li nes) ; 

StoreFast Search : =FastSearchAQ; 
end; 

Begio 

End. 
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Unit STCpic04; 


■C Centroid caLcuLation, window parameters adjusting > 

Interface 

uses 

STdefOl; 

const 

SSmin0ev=1e-10; 

procedure CaLcuLateStarCvar Star: TStarR); 
procedure AdjustExposureCvar Star: TStarR}; 
procedure RepositionUindowCvar Star: TStarR); 
procedure SetUindows(var Star: TStarR); 
procedure SetDACandLEO(var StarO/ Star6: TstarR); 


Implementation 


■C Calculate subregions inside tracking windows > 
procedure SetUindowslvar Star: TStarR); 
begin 

with Star.StAux^ Star.Uind, Star.Bckgr do 
begin 

if <Star.StN>0) and (Star.StN<=NofStTrack) then 
begin 

XstSt := round (XcenterP - UinStX div 2); 

YstSt := round (YcenterP - WinStY div 2); 

XendSt := XstSt+WinStX-1; 

YendSt := YstSt+WinStY-1; 

Xcenter:= (XendSt+XstSt)/2; 

Ycenter:= (YendSt+YstSt)/2; 

Xslw := XstSt-SlowDownX; 

YsLw := YstSt-SlowDownY; 

XstLB:-0; 

XendLB:=0; 

XstRB:=0; 

XendRB:=0; 

if BcgrToAdj or DebugDsplMode then 


begin 


BgL0:=0, 


BgLl:=0, 


BgR0:=0, 


BgRl:=0, 


Star . Nagn . Star IntHax : 

XendLB 

= XstSt-WinSepX-1; 

XstLB 

= XendLB-UinWBx+1; 

XstRB 

= XendSt+UinSepX+1; 

XendRB 

= XstRB+UinWBx-1; 

YstB 

= YstSt-UinSepY; 

YendB 

= YendSt+UinSepY; 

Xslw 

= XstLB-SLowDownX; 

Yslw 

= YstB-SlowDownY; 

WinLL 

= Xslw; 

UinRR 

= XendRB; 

UinBB 

= YstB; 
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WinTT := YendB; 

Xsep: =round ( ( (XendRB+XstRB) /2-t^ (XendLB4-XstLB) /2) /2); 
if DebugDspLHode then 
begin 

UinLL := UinLL-WinOfsX; 

WinBB := WinBB-WinOfsY; 

UinRR UinLL+UinUnax; 

UinTT := WinBB-t-UinKoax; 
end; 
end 
else 


begin 

WinLL 

:= XstSt-SlowDownX; 

WinBB 

:= YstSt-SlowDownY; 

WinRR 

:= XendSt; 

UinTT 

:= YendSt; 

end; 


end 


else 


begin 



XstLB:=0; 

XendLB:=0; 

XstSt:=0; 

Xendst:=0; 

XstRB;=0; 

XendRB:=0; 

end; 

end; -Cwith> 


{. Calculate centroid > 

procedure StarCentrCaUvar Star: TStarR); 

< Calculate Background > 
procedure PicUinBackgrCvar Star: TStarR); 
var 

ix, iy: word; 
begin 

with Star, Star.StAux, Star. Wind, Star.Bckgr do 
begin 

for ix:=XstLB to XendLB do 
begin 

for iy:=YstB to YendB do 
begin 

if odd(iy) then BgLi :=BgLl+StPictureCiy-UinBB+1,ix-WinLL+1] and $FFF 
else BgL0:=BgL0+StPictureEiy-WinBB+1,ix-WinLL+13 and $FFF; 

end; 

end; 

for ix:=XstRB to XendRB do 
begin 

for iy:=YstB to YendB do 
begin 

if odd(iy) then BgR1;=BgR1+StPictureCiy-WinBB+1,ix-UinLL+13 and $FFF 
else BgRO:=BgRO+StPictureCiy-WinBB+1,ix-WinLL+13 and SFFF; 

end; 

end; 

if not odd(WinHBy) then 
begin 
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BgLO;=BgLO/(UinHBy div 2)/U1nUBx; 

BgLl:-BgLl/(UinHBy div 2)/UinUBx; 

BgRO:=BgRO/(UinHBy div 2)/UinUBx; 

BgRl:~BgR1/(UinHBy div 2)/UinWBx; 

BgO :=(BgL0+BgR0)/2; 

Bg1 :=(BgLl+BgRl)/2; 

Bg :=(BgO+Bg1)/2; 
end 
else 
begin 

if not odd(YstB) then 
begin 

BgLO:=BgLO/(UinHBy div 2 + D/WinUBx; 

BgLl:=Bgl1/(UinHBy div 2)/UinUBx; 

BgRO:-BgRO/(UinHBy div 2 * D/UinUBx; 

BgR1:=BgR1/(UinHBy div 2)/WinWBx; 

BgO ;=(BgL0^BgR0)/2; 

Bgl :=(BgLl+BgRl)/2; 

Bg :=(BgO*(UinHBy div 2 ■«- 1) -«• Bg1*(UinHBy div 2) )/UinHBy; 
end 
else 
begin 

BgLO:-BgLO/CUinHBy div 2)/UinWBx; 

BgL1:=Bgl1/(UinHBy div 2 + D/UinWBx; 

BgRO:=BgRO/(WinHBy div 2)/WinUBx; 

BgR1:=BgR1/(WinHBy div 2 + 1)/WinUBx; 

BgO :=(BgLO+BgRO)/2; 

Bgl :=(BgLl+BgR1)/2; 

Bg :=(Bg1*(WinHBy div 2 + 1) + BgO*(UinHBy div 2) )/UinHBy; 
end; 
end; 

BgradOX : =(BgRO-BgLO) /Xsep; 

BgradlX : =(BgRl-BgLl ) /Xsep; 
end; twith> 
end; 

-C Used for centroid calculation in Y direction > 
function SuisOverXlvar Star: TStarR; iy:word): float; 
var 

ix: word; 

Xsum^ BB, BBgr: float; 
begin 
Xsun:=0; 

with Star^ Star.StAux, Star. Wind, Star.Bckgr do 
begin 

if not odd(iy) then 
begin 
BB:=BgO; 

BBgr:=BgradOX; 

end 

else 

begin 

BB:-Bg1; 

BBgr:-BgradlX; 
end; <else> 

for ix:=XstSt to XendSt do 
begin 

Xsuin:=Xsuin+<StPictureCiy-WinBB+1, ix-WinLL+13 and $FFF - 

(BB+(ix-Xcenter)*BBgr) ); 

end; .{for> 
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SumOverX:=Xsum/(XendSt-XstSt+1 ); tWinStX;> 
end; Cwith> 
end; 

< Used for centroid calculation in X direction > 
function SumOwerYlvar Star: TStarR; ix:word): float; 
var 

iy: word; 

Ysuni/ BB, BBO, BB1 : float; 

PP: word; 
begin 
Ysuin:=0; 

with Star, Star.StAux, Star.Uind^ Star.Bckgr do 
begin 

BBO: =BgO+ ( ix-Xcenter )*BgradOX; 

BBI :=Bg1+(ix-Xcenter)*Bgrad1X; 
for iy:=YstSt to YendSt do 
begin 

if not odd(iy) then 
begin 
BB:=BB0; 
end 
else 
begin 
BB:=BB1; 
end; •CelseJ 

PP:=StPictureCiy-WinBB+1, ix-UinLL+13 and $FFF; 

Ysun:=Ysum+<PP - BB); 

if PP>= Star. Nagn. Star IntHax then Star.Magn.StarIntt1ax:=PP; 
end; {for> 

SumOver Y : =Ysuni/ (YendSt- Yst St+1 ) ; -CW i nSt Y; > 
end; <with> 
end; 

{ 2 dim centroid > 

procedure StarCentr(var Star: TStarR); 
var 

i: word; 

Suffl/ Sxy: float; 
begin 

with Star.StAuX/ Star. Wind, Star.Cntr, Star.Magn do 
begin 
Sum :=0; 

CntrX:=0; 

StarlntMax:=0; 
for i:=XstSt to XendSt do 
begin 

Sxy : =SumOverY ( Star , i ) ; 

Sum:=Suo+Sxy; 

CntrX:=CntrX+Sxy*i ; 
end; {for> 

if Abs(Sum)>SSminDev then CntrX:=CntrX/Sum else CntrX:=0;{Xcenter;> 

Sum :=0; 

CntrY:=0; 

for i:=YstSt to YendSt do 
begin 

Sxy:=SumOverX(Star,i); 

Sum:=SuoH-Sxy; 

CntrY:=CntrY+Sxy*i; 
end; {for> 
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if Abs(Sum)>SSBiinDev then CntrY:=CntrY/Sun else CntPY:= 0 ;{Ycenter*> 
if not odd(UlnStY) then ' 

begin 

StHM : =Sun/WinStY/ExposureTi ae*Msca le; 
end 
else 
begin 

if not odd(YstSt) then 
begin 

StMH : =SUB/Wi nStY/ExposureT i me*Msca le*Hsca LeO; 
end 
else 
begin 

StMM;=Sum/WinStY/ExposureTime*Mscale*Mscale1; 

end; ‘Celse> 
end; -Celse> 
end; {withj 
end; 

<StapCentrCal> 

begin 

if BcgrToAdj then PicWinBackgr(Star); 

StarCentr(Star); 
end; {StarCentrCaQ 


<. Adjust window position if star is not in center J 
procedure RepositionWindowCvar Star: TStarft); 
begin 

with Star, Star. Wind, Star.Cntr, Star.StAux do 
begin 

W i nChanged : =t rue; 

if (CntrX>=XstSt) and (CntrX<=XendSt) and 
(CntrY>=YstSt) and (CntrY<=YendSt) then 
begin 
<. 

if abs(CntrX-XcenterP)>Xrepos then XCenterP:=CntrX; 

^f abs(CntrY-YcenterP)>Yrepos then YCenterP:=CntrY; 

XcenterP:=CntrX; 

YcenterP:=CntrY; 

end 

else 

begin 

Ui nChanged :=f a Ise; 
end; 

end; Cwith> 
end; 

t Adjust exposure if naxiaua is not inside limits > 
procedure AdjustExposureCvar Star:TStarR); 
begin 

if Star. Magn. Star IntMax < (7 * Bits12) div 10 then 
begin 

if ExposureTiae < ExposureTiaeNax then 
begin 

if ExposureTiae <10 then ExposureTiae:=ExposureTiae*2+1 

ExposureTiae := roundCExposureTiae * 1 25)+1 • 

If ExposureTiae > ExposureTiaeMax then ExposureTiae := ExposureTiaeftex; 
end/ ' 

end; 
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if Star.Magn.StarlntMax > (9 * Bits12) div 10 then 
begin 

if EXposureTime >= 1 then ExposureTiBe:=ExposureTi«e-1; 
if ExposureTine > 1 then 
begin 

EXposureTime := round (ExposureTi me / 1.25); 
if ExposureTime < 1 then ExposureTime := 0; 
end; 
end; 

if ExpNoAdjust>0 then dec (ExpNoAd just); 
if ExpNoAdjust=0 then ExpToAdjust:=false; 
end; 

{ Control Exposure adjustment and switching main star > 
procedure CaLcuLateStarCvar Star: TStarR); 
begin 

StarCentrCaUStar); 
if (Star.Bckgr.Bg<Bits12 div 2) and 

( (Abs(Star.Cntr.CntrX~Star.Wind.Xcenter)>Xrepos) or 
(Abs(Star.Cntr.CntrY-Star.Uind.Ycenter)>Yrepos) ) 
then 
begin 

PosToAd just : =true; 
end; 

if CStar.StN=MainStar) and 

( (Star.Magn. StarIntMax<(7*Bits12) div 10) or 
(Star.Nagn.StarIntHax>(9*Bits12) div 10) ) 
then 
begin 

ExpToAd j ust : =t rue; 
end; 

end; 


{ Control background usung LEDs > 
procedure SetOACandLED(var StarO/ Star6: TstarR); 
var 

ix/jy, j, jO, j1, died: integer; 
dDac: longint; 

DACok: boolean; 

LEDok: boolean; 
begin 

j:=0; 

DACok: -false; 

Stars. Stars6.BB_DAC:=0; 
for jy:=StarO.Uind.UinBB to 0 do 
for ix:-StarO.Wind.UinLL4^SlowDownXtr to StarO. Uind.WinRR do 
begin 

Stars . StarsG . BB_DAC : =Stars . StarsG . BB_DAC-«- 
StarO.StPictureCjy-StarO. Hind, WinBB+1,ix-Star0. Wind. WinLL+1] and $FFF; 
inc(j); 
end; 

Stars . StarsG . BB_DAC : =Stars. StarsG . BB_DAC/ j ; 

dDac:-0; 

LEDok:=false; 

if Stars. StarsG. BB_0AO20 then 
begin 
dDac: =3; 

DAC Adj Stb:=0; 
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if Stars. StarsG.BB_DAC>500 then 
begin 

dDac : ~round ( Stars . Star sG . BB_DAC > ; 
end; 

if Stars. StarsG.BB_DAC>100 then dOac:= round(Stars.StarsG.BB_OAC) div 2; 
if Stars. StarsG.BB_DAC>50 then dDac:= round(Stars.StarsG.BB_OAC) div 3; 
if Stars. StarsG.BB_DAO30 then dDac:= round(Stars.StarsG.BB_DAC) div 4; 
if (DAClV+dDac<2048) then DAClV:=DAC1V+dDac else DAC1V:=2048; 
end 
else 
begin 

if Stars. StarsG.BB_DAC< 10 then 
begin 

DAC_Adj_Stb:=0; 

dDac:=-5; 

if Stars. StarsG.BB_DAC< 5 then d0ac:=-10; 
if Stars. StarsG.BB_DAC< 2 then dDac:=-100; 
if (0AClV>*dDAC) then DAClV:-DAClV+dDac else DAC1V:=0; 
end; 
end; 

if (Stars. StarsG.BB_DAC<20) and (Stars. StarsG.BB_DAC>10) then 
begin 

i nc ( DAC__Ad j __Stb) ; 

DACok:=true; 

end 

else inc(0AC_Adj_try); 
if DAC_Adj_try>5 then 
begin 

OACtoAdj :=false; 

OAC_LEDCheck:=faLse; 

end; 

if DAC_Adj_Stb>5 then DACtoAdj :=false; 

{DAC1V:=1024;} 

j0:=0; 

j1:=0; 

Stars . Star sG . BB_LED0 : =0; 

Stars. StarsG.BB_LEDl :=0; 
for jy:=5 to StarO.Wind.WinTT do 
for ix:=StarO.Wind.UinLL-«-SlowDownXtr to StarO.Uind.WinRR do 
begin 

if odd(jy) then 
begin 

Stars . StarsG . BB_LED1 : =Stars . StarsG . BB_LE01+ 

StarO. StPictureCjy-StarO. Wind. WinBB+1,ix-Star0. Wind. UinLL+1] and $FFF; 
inc(jl); 
end 
else 
begin 

Stars . StarsG . BB_LEDO:=Stars . StarsG . BB_LE0(H 

StarO.StPictureCjy-StarO. Wind. UinBB+1,ix-Star0. Wind. WinLL+1] and SFFF; 
inc(jO); 
end; 
end; 

Stars. StarsG. BB_LED0:sStars. StarsG. BB_LED0/j0; 

Stars. StarsG. BB_LED1 : =Stars. StarsG . BB_LED1 / j1 ; 

Stars .StarsG . BB_LED ;=( Stars . StarsG . BB_LEOO+Stars . StarsG . BB_LED1 ) /2; 

•Cif DACtoAdj then EXIT;> 
dLed:=0; 
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< 310 th.„ 

L£0_Adj_Stb:=0; 

if LedTiBe(X1 then LedTineO:«l; 

died: =round(LedTimeO*0. 10); 

if dLed<1 then dLed:sl • 

if^«rs.st.r,O.B..LEoi-s..„.s,.rsa.BB.o»c < 350 tb.„ 

dLed : =round ( LedTi oe0*0 . 25 ) ; 
if dLed<1 then dLed;=1; 
end; 

1f^..rs.5«rs6.BB.L50<^5t.r,.5t,rsO.BB.0»c < 1«0 th.„ 

dLed ; = round ( LedT i me0*0 . 50) ; 
if dLed<1 then dLed:=1; 
end; 

if^..r..s,.r3O.BB.U0<^St.r,.s«rsa.Be.0« < 100 th.„ 
dLed : =pound(LedTi«eO*2 . 00); 

if dLed<2 then dLed: =2; 
end; 

If then L«1Ti.e0:=L«iTi.«.dL«i 

end; ‘■«<Ti»eO:=LedTiiiie«ax; 

1f^«.re.s„rs0.ae.OEO<^St.r..starso.BO.DAC > 360 ,K«. 
LED_Adj_Stb;=0; 

^«-T1"«0:nO; EXIT; end; 

if^.Ta.StanaG.BS.LE0,^3tana.E,ana0.0B.0xc > ,000 then 

dLed ; =-round ( LedTi me0*0 . 25 ) ; 
if dLed>-l then dLed:=-l* 
end; ' 

1f^«.ra.5.anao.BB.LEOO-st.ra.st,raO.BB.D« > 500 then 
dLed ; =-round ( LedTi Die0*0 . 5 ) ; 

if dLed>“1 then dLed:=-l • 
end; * 

If^^LedTiaeOX^O^ then L«,ri.eO:.LedTi.eOtdLed elae LedTi«O:.0; 
dLed;=0; 

1f^..rs.stanao.ae.LE01-stana.Etana0.oa.h« < 310 then 
LED_Adj_stb;=0; 

if LedTi me1<1 then LedTi me1;=1; 
dLed ; =round ( LedTi ael *0 . 1 0) ; 
if dLed<1 then dLed:=1; 

if^tana.Stanao.ao.LEo;-5t,na.starao.OB.O« < 250 then 

~ I'ound ( LedTi ae1 *0 . 25 ) ; 

if dLed<1 then dLed:=1; 
end; ' 

if^«.na.stanao.aB.LEh,-stana.staraO.BB.hxc < 160 then 
dLed:=round(LedTiae1*0.50); 

if dLed<1 then dLed:=1; 
end; 

1fJt.na.5tars0.ae.U01-st.r,.starsO.0a.0XC < 1«, then 
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OLed : s=round( LedTi ae1*2 . 00) ; 

if dLed<2 then dLed:=2; 
end; 

if then 

en<j; ‘■«*Time1:=LedTi»eMax; 

LED_Adj_Stb:=0; 

dl!cd^"''’'“ E«T; end; 

if^..re.s„rsO.Ba.U01-s„re.St.reG.5B-0*C > ,«» th«, 
dLed:=-round(LedTiiae1*0.25); 

if dLed>-1 then dLed:=-1; 
end; 

dLed : =-round (LedTi «e 1 * 0 . 5 ) ; 

if dLed>-1 then dLed:=-1; 
end; 

i^L«iT,.e1>-dL«i th«, L«iTi.el:=LedTie.1edL«. .l,e LedTi.e1:=0; 

Stare s,.„G.B 0 -LEK)-s,are.st.re(i.BB. 0 AC> 310 ) 
^«.ars.s,.rsd.aB.LEd1-stans.S.aneG.BB.DAO310,the„ 

inc(L£0_Adj_stb); 

LEDok:=true; 

end 

el-se inc(LED_Adj_Try); 

If LED_Adj_Stb>5 then LEDtoAdj :=false- 
If LE0_Adj_try>5 then 
begin 

LEDtoAdj :=faUe; 

DAC^LEOCheck: =fa Ise; 
end; 

if OAC.tEocheek and OACok and LEDok then OAC LEOCheek-f.i 
^nct kedtowj and no, EACtoAdi then OAC.kE;t!L“::Jau:;“'' 


Begin 

End. 
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Unit STDp1c04; <STDpic04.pas> 


{ FOR TESTS ONLY - Display tracking windows > 

■C NOT part of Star Tracker Software No conoents > 

Interface 

tSIfNDef REMOTE > 

uses 
StDef de- 
procedure DisplayStarlStar: TStarR); 

■CSEndlf > 


InpLenentation 
-CSlfNDef REMOTE > 
uses 

CRT, DOS, StAuxOI; 
var 

h, m, s, hund : Word; 

X2s, Y2s, Xs2, Ys2, Ys, 

M2s, ffln2s, Ms2, mms2, Ms, MMs: float; 


const 

Lines80=true; 

PointsTest=-Ctrue;> false; 

BusyADC: boolean = false; 

UaitADC; boolean = false; 

StopAOC: boolean = false; 

Nsigm : Integer = 0; 

function XsignflX, Y,M, no: float; var Ys, Ns, aos: float): float; 
begin 

Xsigaf :=9999; 
case Nsigm of 
0: begin 
X2s:=0; 

Xs2:=0; 

Y2s:=0; 

Ys2:=0; 

Hs2:=0; 

m2s:=0; 

am2s:=0; 

mffls2;=0; 

inc(Nsiga); 

end; 

11: begin 

dec (Nsigm); 

Xsigmf:=Sqrt( (X2s*-Xs2*Xs2/Nsigm) )/(Nsiga-1); 

Ys :=Sqrt( (Y2s-Ys2*Ys2/Nsiga) )/(Nsig»-1); 

Ms :=Sqrt( (H2s-Hs2*Ms2/Nsigm) )/(Nsigiir-1); 

aims :=Sqrt( (fflffl2s-mffls2*auns2/Nsigm) )/(Nsigur‘1); 
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X2s:=0; 

Xs2:=0; 

Y2s:=0; 

Ys2:=0; 

Ms2:=0; 
u2s:=0; 
mni2s : =0; 
mffls2:=0; 

Ns1gm:=0; 

end; 

else 

begin 

inc(Nsigm); 

X2s:=X2s+X*X; 

Xs2:=Xs2+X; 

Y2s:=Y2s+Y*Y; 

Ys2:=Ys2+Y; 

Ms2:=Ms2+M; 

M2s:=M2s+M*M; 

inffls2:=:tnns2-«-imn; 

Run2s : =mm2s'ffflm*nmi; 
end; 

end; {case> 
end; 

f unct i on Put lnRange( AD : word) : word; 
begin 

if (AD and $1CX)0) = $1000 then BusyADC:=false else BusyADC:=true; 
if (AD and $2000) = $20(X) then UaitAOCistrue else UaitADC:=false; 
if (AD and $4000) = $4000 then StopADC;=true else StopAOC:=false; 

PutInRange := round((AD mod Bits12)/100); 
end; 

procedure DisplayPic(Star: TStarR); 
var i,j: integer; 

xsigm: float; 
begin 

if StToDispl=7 then 
begin 

GetT i me(h/ m/ s, hund) ; 

writeln( ' X Stars. StarRsCNainStar3.Cntr.CntrX:3:2, 

' Y stars. StarRsCHainStar3.Cntr.CntrY:3:2, 

' m stars. StarRsCHainStar^.Hagn. StarlntHax:4/ 

' M stars. StarRsCHainStar3.Hagn.StNH:7:2/ 

' T ExposureTime:3, 

' Cx‘, stars. StarRsCMainStarD. Wind. Xcenter:4:l, 

' Cy', Stars. StarRs[HainStar3. Wind. Ycenter:4;1^ 

' Time ',s:2, * : ',hund:2 ); 

Xsigm:=Xsigmf(StarS.StarRsCHainStar3.Cntr.CntrX, 
stars. StarRsCHainStar3.Cntr.CntrY, 
stars. StarRsCMainStar3 .Magn. StNM^ 
stars. StarRsCKainStar3.Hagn. StarIntMax, 

Ys, HS/ mms ); 

if Xsigm<9999 then writelnC Xs '/Xsigm:S;3, ' Ys Ys:5:3, 

' X NEA ',Xsigm*30:5:3,"' Y NEA ',Ys*30:5:3, , 
' Ns Hs:4:2,' ms', mffls:4:2); 

EXIT; 

end; 

ClrScr; 

with Star, Star. Wind, Star.Cntr, Star.StAux do 


Use or diflclomure of theme SBIR data is sul^ect to the restriction on the title page of this report. 



begin 

for j:=UinTT downto UinBB do 
begin 

for 1:=UinLL to UinRR do 
begin 

if not ( <Star.StN=0) or (Star.StN>NofStTrack) ) then 
begin 

if (j>=YstB ) and (j<=YendB ) and 

((i>=Xslw) or (i>=XstLB)) and ((i<=XendRB) or (XendRB=0)) 
then 
begin 

TextBackgpound(LightGray); 

TextCoLor(Black); 

end 

else 

begin 

TextBackground(Black) ; 

TextColor(White); 
end; -CeLse> 

if (abs(i-CntrX)<0.501) and (abs( j-CntrYX0.501) 
then TextBackground(Magenta); 

if (i>=XstSt) and (i<=XendSt) and 
(j>=YstSt) and (j<=YendSt) then 
begin 

if <abs(i-XcenterX0.501) and (abs< j-YcenterX0.501) 
then TextCoLor(LightRed) 
else TextCoLor(LightGreen); 
end 
else 

if (i>=XsLw) and ((i<=XstLB-1) or ((XstLB=0) and (KXstSt)) ) and 
(j>=YstB ) and (j<=YendB ) 
then TextCoLor(Brown) 
else 

if <j>=YstB) and (j<=YendB) and 
( C(i>=XstLB) and (K^XendLB)) or 
C(i>=XstRB) and (i<=XendRB)) > 
then TextCoLor(BLue); 
end {if> 
else 
begin 

TextColor(White); 

TextBackground(Black); 
if (Star.Stn=0) then 
begin 

if (KUinLL+SlowDownXtr) and ( (j<=0) or (J>=5) ) 
then TextColor(Brown) 
else 
begin 

if (j<=0) then TextColor(Blue); 
if (J>=5) then TextColor(LightGreen); 
end; -Cif} 
end; 

end; -Celse> 

write(PutlnRange(StPictureC(j-UinB8+1),(i-WinLL+1)] ):2); 

£write($FFF and StPictureC(j-WinBfl+1),(i“UinLL+1)]:4);> 
if not BusyADC -land not WaitADC and not StopADO then writeC ') 
else 
begin 
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BusyADC {and not StopADO then write('B'); 


if 
{ 

if BusyAOC and StopAOC then writeCX*); 

if not BusyADC and StopADC then write('S'); 

> 

end; 

end; ■Cfor> 

if jOUinBB then writeLn; 
end; •Cfor> 

if linesSO then GoToXY(1,50) else GoToXY(1,25); 
TextBackground(LightGray); 

TextColor(BLaclc); 

if not( (StN=0) or (StN=NofStTrack+1) ) then 
begin 

if Star.StN=MainStar then 
begin 

TextBackground(LightGray); 

TextColor(BLue); 

end; 

uriteCSt ',StN:2); 

TextBackground(LightGray); 

Text Color (Black); 

writeC B ' ^Star.Bckgr.Bg:7:2, 

‘ X Star.Cntr.CntrX:3:2, ' Y Star.Cntr.CntrY:3:2, 

‘ Star.Magn. StarIntMax:4, ' M ' , Star.Hagn,StMM:7:2, 
' T ExposureTime:3 

Cx’, Star. Wind. Xcenter:4:1 
/' Cy', Star .Wind. Ycenter:4;1 


); 

end 

else 

writeCSt ',StN:2, 

' T ExposureTiine:3, 

* Bdac *,Stars.StarsG.BB_0AC:7:2, 

' DAC DAC1V:4, 

' Bled Stars. StarsG.BB_LED:4:1, 
' TLO', LedTi(8eO:3, 

' TLT, LedTi»e1:3 

Cx', Star. Wind. Xcenter:4:1 
Cy', Star. Wind. Ycenter:4:1 


); 

NormVideo; 
end; {with> 
end; 

procedure Displaylnage(Star: TStarR); 
var i,j, k: word; 
begin 
ClrScr; 

with Star, Star.StAqPar do 
begin 

for NofAqLines downto 1 do 
begin 

for i:=1 to NofAqPix do 
begin 

for k:=1 to 3 do 
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begin 

if (i»NofAqPix) then 

urite( PutlnRange(Stl«ageCj/k/i]):2) 

else 

uriteC PutlnRange(StlnageCj/k/i]):2, ' '); 
end; 
end; 

write Int- 
end; CforJ 

writeCStar *,StN:2); 
end; ■Cwith> 
writeLn; 
end; 

procedure DisplayStar(Star: TStarR); 
var 

Ch:Char; 

begin 

DispLayPic(Star); 

•Cdelay(2000);> 

{DispLaylmage(Star);> 

■C 

if ((H level and MlevelTgl) or (not HleveD) and 

((StToDispls9) or (Star.StN»StToDispl)} then DispLayPic(Star); 

> 

if ((Mlevel and HlevelTgl) or (not HleveD) and 

((StToDispls9) or (Star.StN=StToDispD) then Displaylnage(Star); 

> 

if KeyPressed then 
begin 

Ch:=ReadKey; 
if Ch=#27 then halt; 
case Ch of 

'O': StToDispl:=0; 

‘V: StToDispl:=1; 

'2': StToDispl:=2; 

'3': StToDispl:=3; 

•9': StToDispl:=9; 

*8': StToDispl:=8; 

*7': StTo0ispl:=7; 

’ ': StarKove := not StarHove; 

'D','d' : begin 

DebugDsplHode:=not debugOsplHode; 

OebugDsp iHodeWas : ~true; 
end; 

'P': PCooler_ON; 

'p': PCooler^OFF; 
else begin end; 
end; -Ccase> 
end; {if> 
end; 

{$EndIf > 

Begin 

{SIfNDef REHOTE > 

if linesSO then TextHode(C080fFont8x8); 

«EndIf > 

End. 
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unit StPCSGOI; 


■C Controls sequencer (PCS6) generating CCD clock pulses > 

interface 

uses 

StDefOl; 

procedure PCSG_ToByPass; { for TEST - use software emulation > 

{ Generate selected clock waveform several times 8 and 16 bit output> 
procedure ExecUFl UFnum, Times: word ); 
procedure ExecWFVC UFnum/ Times: word ); 

■C Uait for sequencer to stop } 
procedure Uait__PCSG_Finish; 

■C Check if PCSG stoped > 
function PCSG_Finish:boolean; 

■C Get number of generated waveforms > 
function GetTimerO:word; 

{ CCD operations performed by PCSG > 
procedure SDc lear PCSG( Nt i mes : word) ; 
procedure StoreS1PCSG(Ntimes:word); 
procedure StoreS2PCSG(Nt i mes : word) ; 
procedure ShiftAlines1_3_PCSG<NL:word); 
procedure Shi f tB I i nes1_3_PCSG(NL : word) ; 
procedure TransfIPCSG; 
procedure Transf2PCSG; 
procedure Transf3PCS6; 
procedure Shift1_3inAtr2_PCSG; 
procedure Shift1_3inBtr2_PCSG; 
procedure ABGC lockP CS6 ( Ti meMs : word ) ; 

C SIfNOef REMTST> 

function GetADCwait_PCSG: word; 

procedure GetPixADCwait_PCSG(var DataHin: TDataMinSt; UinU: word); 

{ $EndIF> 

function SDclearPCSGstop(Npix:word; StpAtN: word; var StpAtp:TstpAtpoint):word; 

procedure ClearIandS_PCSG(Ntimes:word); 

procedure C lear landSandSR_PCSG (Ntimes : word) ; 

procedure CheckRAMnC WFnum: word ); 

procedure PCSGT esti (Nt i mes : word) ; 

procedure TestPCSGasm(NN:word); 


implementation 
C SIfNDef REMTST> 
uses 

StAqsOI, StAQOI; 

t $ELSE> 

C 

procedure SetABGl^ON; 
begin 
end; 

procedure SetABGI_OFF; 
begin 
end; 
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> 

< SEndlFD- 


const 

PCSG_Debug_ON = false; 

{ Timing and memory paratiters > 


LenghtUaveFormMAX = 63; 

UaveFormNumHax = 64; 

PCSG_Sys_CLk_Oev = {2;> {3;> £4;> { 2;> C6;> 10; 

-C I/O addresses > 


-C PC bus addresses > 
{ SlfNDef REH0TE> 
t 

PCSG_TimerO = $380; 

PCSG_Timer1 = $382; 

PCSG_Timer2 = $384; 

PCSG_TimerContr = $386; 

PCSG_StatusPort = $3A0; 

PCSG_1ACK = $3A2; 

PCSG_RAH_RD = $3A4; 

PCSG_RAM_WR = $3A6; 

PCSG_WSR_Port = $3A8; 

PCSG_ControLPort = S3AA; 

} 

{ $ELSE> 

PCS6_TimerO = $1780; 

PCSG_Timer1 = $1782; 

PCSG_Timer2 = $1784; 

PCSG_TimerContr = $1786; 

PCSG^StatusPort = $17A0; 

PCSG_IACK = $17A2; 

PCSG_RAM_RD = $17A4; 

PCSG_RAM_WR = $17A6; 

PCSG_WSR_Port = $17A8; 

PCSG_ControLPort = $17AA; 

■C $EndIF> 


{ PCSG ControlPort Bits > 


PCSG_CR_RAMprogr 

PCSG_CR_Latch_C 

PCSG_CR_Spare 

PCSG_CR_T01_EN 

PCSG_CR_STOP_EN 

PCSG_CR_H_EN 

PCSG_CR_T2_EN 

PCSG CR UAIT En 


= $1; -C Program RAH > 

= $2; < Enable V signal and control signal for PCSG > 

= $4; < Spare > 

= $8; 


= $ 10 ; 

= $20; { 0 = high Z on H > 
= $40; 

= $80; 


PCSG_Cont r D i sab le= 
PCSG_RAM_Progr = 
PCSG_RUN_V 
PCSG_RUN_HV 
PCSG^ByPass = 


SO; 

PCSG_CR_RAHprogr; <. $1;> 

PCSG_CR_Latch_C or PCSG_CR_T01_EN; C $2 or $8; > 

PCSG_CR_Latch_C or PCSG_^CR_T01_EN or PCSG_CR_H_EN; { $2 or $8 or $20; > 
PCSG_Cont rOi sab le; 


•C PCSG_TimerContr bytes > 

PCSG_TO_Control = $30; i. bits 7,6=00 counter 0 
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PCS6_T0_Status = SC2; 

PCSG_T1_Control = $76; 


PCSG_Tl_Status = $C4; 

•G PCSG__StatusPort bits > 

PCSG_SP_Stoped = 1; 
PCSG_SP_TimeOut_TO = 2; 
PCSG_SP_NoWAIT = 4; 
PCSG_SP_SecInc = 8; 

■C Signals for PCSG > 


bits 5,4=11 16-bit mode 

bits 3-1=000 isode 0: interrupt on tc 

bit 0 =0 binary > 

{ bits 7,6=01 counter 1 

bits 5,4=11 16-bit node 

bits 3-1=011 node 1: square wave 
bit 0 =0 binary > 


PCSG_IntPoLPos 

PCSG_lntSampLe 

PCSG_IntReset 

PCS6_AD_CS 

PCSG_SRG1 

PCSG_SRG2 

PCSG_SR63 

PCSG_ABGC 

PCSG_IAG 

PCSG_TMG 

PCSG^SAGI 

PCSG_SAG2 

PCSG_TRG 

PCSG SRGs 


= $ 1 ; 
= $ 2 ; 
= $4; 

= $ 8 ; 

= $10; 
= $20; 
= $40; 

= $80; 

= $ 100 ; 
= $ 200 ; 
= $400; 
= $800; 
= $1000; 
= $ 2000 ; 


-C Sequencer instructions - Loaded in RAH> 


PCSG_Decr 
PCSG Cont 


= $4000; 
= $8000; 


{ Signals for PCSG compound > 

PCSG_Drn = $0; 

PCSG^DrnR = PCSG_IntReset; 

■C UaveForns numbers > 

PCSG_2eroWF = 0; 

PCSG^SerialShift = 1; 

PCSG_,ClearSAGl = 2; 

PCSG_ClearSA62 = 3; 

PCSG_StoreSAG1 = 4; 

PCS6_StoreSA62 = 5; 

PCS6_PshiftA = 6; 

PCSG_PshiftB = 7; 

PCS6_Transf1 = 8; 

PCSG_Transf2 = 9; 

PCSG_Transf3 = 10; 

PCSG_Shift1_3inAtr2 = 11; 
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PCSG_Shift1_3inBtr2 = 12; 
PCSG^GetADCwait = 13; 
PCSG_GetPixADCwait = 14; 
PCSG_ABGC_WF = 15; 

PCSG_MaxWF = 15; 


type 

T_PCSG_WaveForm = arrayCO. .LenghtWaveFormHAX] of word; 

T_PCSG_Addrs = arrayC1..2] of word; 

T PCSG_WaveFonns = arrayCO. .WaveFormNumMax] of T_PCSG_WaveForm; 
T_PCSG_WaveAddrs = arrayCO. .UaveFormNumMax] of T_PCSG_Addrs; 

var 

PCSG_UaveForias : T_PCS6_WaveForas; 

PCSG_WAveAddrs : T_PCS6_^WaveAddrs; 

procedure PCSGloadSRAM(StartAddr, EndAddrrword; UaveForB:T_PCSG_WaveFora); 
var 

addr: word; 
begin 

■C Required UaveForm Format > 

{ MFC03 :=0; > 

i UFC13 :=0; > 

{ UFC2] :=0; STOPS here > 

C UFC2<n=EndAddr-StartAddr] = useful L data > 

t > 

PortCPCSG_ControlPort]:=PCSG_RAM_Progr; { SRAM for program > 
PortWCPCSG_WSR_Port3:=StartAddr; 

PortUCPCSG_RAM_UR] :=WaveForroEStartAddr-StartAddr] 
or PCS6_Cont or PCSG_Decr; 
for addr:=StartAddr+1 to EndAddr-1 do 
begin 

PortUCPCSG_WSR_Port: :=addr; 

PortUCPCSG_RAH_WR] :=(word(WaveFormCaddr-StartAddr]) or PCSG_Cont) and 

not PCSG_Decr; 

end; 

PortUCPCSG_WSR_Port3 :=EndAddr; 

PortW£PCSG_RAM_WR3 :=(WaveFormCEndAddr-StartAddr] or PCSG_Decr) and 

not PCSG_Cont; 

PortWCPCSG_USR_Port3 : =Start Addr; 

Po rt CPCSG_Cont ro L Por t ] : =PCSG_Cont r D i sab Leg- 
end; 

procedure CheckRAMCStartAddr, EndAddrrword; var WaveForm: T_PCS6_UaveForm); 
var 

addr: word; 
begin 

PortCPCSG_ControLPort3:=PCSG_RAH_Progr; { SRAM for program > 
for addr :=Start Addr to EndAddr do 
begin 

PortUCPCSG_WSR_Port] :=addr; 

UaveFormCaddr-StartAddr3:=PortWCPCSG_RAM___RD3; 

end; 

PortCPCSG_ControLPort3:=PCSG_ContrDi sable; 
end; 

function ToBin(n:byte): string; 
var 


Um or disclosuro of these 8B1R date is sulgect to the restriction on the title page of this reporL 



i :byte; 

St : St ring; 
begin 

St := '00000000'; 
for i;=0 to 7 do 
begin 

if (n shr i) and 1 O 0 then stC8-i]:= 'V ; 
end; 

ToBin:=st; 

end; 

procedure CheckRANwrite(SA, EA:word); 
var 

WF2: T_PCSG_WaveForm; 
i;word; 
begin 

CheckRAH(SA,EA,WF2); 

writeLnCADDR DEC CD '); 

{ I ii xxxxxx 00000000 00000000> 

for i:=0 to EA-SA do 

writelnCI ',i+SA:6,' ',WF2Ci3:6, ' ' ,ToBin(Hi(WF2Ci])), 

' ‘,ToBin(Lo(UF2Ci])) ); 

end; 

procedure CheckRAMnC UFnum: word ); 
begin 

writelnC Wave Form #: ', WFnum); 

CheckRAMwrite(PCSG__WaveAddrsCWFNum]C13, PCSG_WaveAddrsEWFNum]C2] ); 
end; 

procedure Set_Timer1 (Frdev:word); 
begin 

{PortCPCSG_ControLPort]:=PCSG_ContrDisabLe;> 

PortCPCSG_TimerContr] :=PCSG_T1_ControL; 

PortCPCSG^Timerl] :=Lo(Frdev); 

PortCPCSG_Timer13 :=hi(Frdev); 

end; 

procedure CheckTl; 
var 

ch:char; 

Lt, Ht: word; 
begin 

PortCPCS6_ControLPort]:=PCSG_ContrDisabLe; 

PortCPCSG_TimerContr] :=PCSG_Tl_Status; 
writeLnC T1 status Port[PCSG_Timer1]); 

Lt:= PortCPCS6_Timer1D; 

Ht:= PortCPCSG_Timerl]; 
writelnC T1 counts ' ,Lt+256*Ht); 
end; 

procedure Set_Timer0(Rep:word); 
begin 

{Port C P CSG_Cont ro LPort ] : =PCS6_Cont rO i sable; > 

Por t CPCSG__T i merCont r] : =PCSG_T0_Cont ro 1; 

PortCPCSG_Ti»er03 :=Lo(Rep); 

PortCPCSG_Timer03 :=Hi(Rep); 

end; 

procedure CheckTO; 
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van 


ch:char; 

Lt/ Ht: word; 
begin 

PortCPCSG_ControlPort3:=PCSG_ContrDi sable; 
PortCPCSG_TinerContr] :=PCSG_TO_Status; 
writelnC TO status '/ PortCPCSG_TiaerO]); 

Lt:= PortCPCSG__Tiiner03; 

Ht:= PortCPCSG_Tiaer03; 

writelnC TO counts ',Lt+256*Ht ); 

end; 

function Get TimerO: word; 
var 

ch:char; 

Lt, Ht: word; 
begin 

{PortCPCSG_ControlPort3:=PCSG_ContrDisable;> 
PortCPCSG_TimerContr] :=PCSG__TO_Status; 

Lt:= PortEPCSG_Tiffler03; 

Ht:= PortCPCSG_Timer03; 

GetTimerO:=Lt+256*Ht ; 
end; 

procedure SetUF_ZeroWF ( Start Addr : word) ; 
const 

UFNuflFPCSG_ZeroWF; 

UF lenght =8; 
begin 

PCSG_WaveAddrsCUFNum3C1 ]:=StartAddr; 
PCSG_Wa\/eAddrsCWFNuiJ>3C2] :=StartAddr+WF lenght-1; 

PCSG_UaveFormsCUFNutn3E 03:=$0; 
PCSG_UaveForrosCUFNun3C 1]:=$0; 
PCSG_WaveFormsCWFNum]C 23:=$0; 
PCSG_UaveFormsCUFNum3C 33:=$0; 
PCSG_UaveFormsCUFNum]E 43:=$0; 
PCSG_WaveFormsCWFNuBi3C 53:=$0; 
PCSG_WaveFormsEUFNum]C 63:=$0; 
PCSG_UaveFormsCWFNuD]C 73:=$0; 
PCSG_WaveFornsCUFNum]C 83;=$0; 
PCSG_WaveFormsCWFNuai3C 93:*$0; 
PCSG_UaveForins[WFNuin3 C1 03 : =$0; 
PCSG_UaveFormsCUFNuin3 C11 3 : =$0; 
PCSG_WaveFormsCUFNum3C123:=$0; 
PCSG_UaveFormsEUFNuRi3n33 :=$0; 
PCSG_UaveForfflsCUFNuffl3C143 :>=$0; 
PCSG_WaveFormsCWFNuiB3 Cl 53 : =S0; 
PCSG_UaveFormsCUFNuffl3C163 :=$0; 

PCSG_WaveFormsCU FNum3 Cl 73 : =$0; 
PCSG_Wa\/eFormsCUFNuffl3 C1 83 : =$0; 
PCSG_UaveFornsCWFNuia3C193 :=S0; 
PCSG_UaveFornsCUFNun3C203:=$0; 
PCSG_WaveFormsCWFNum3C213:=$0; 
PCSG_UaveFornsCUFNun3C223:=$0; 
PCSG_UaveFornsCUFNun3 C233 : =$0; 
end; 

procedure SetUF_Seri a ishi ft (Start Addr : word) ; 
const 
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V 

\ 

PCS6_WaveFormsCWFNum3C 03:=PCSG_IntReset; -CSOnR/O 
PCS6_UaveFornsCUFNun3C 33:=PCS6_lntReset; CSDnR;> 
PCSfi_UaveFormsCWFNui»3C 23;=PCS6_IntReset; -CSDnR/O 
PCSS_WaveFormsCUFNura3C 33:=PCS6_SR63+PCSG_IntReset; {SDG3pR;> 
PCSG_WaveForms[WFNum3C 43:=PCSG_SRG1+PCS6_IntReset; £SDGlpR;3 
PCSG_UaveFormsCWFNum3C 53:=PCSG_SRG2+PCSG_IntReset; {SDG2pR;> 
PCS6_Wa\/eFormsCWFNum3C 63:=$0; 

PC^_l>aveFormsCUFNum3C 73:=$0; 

PC56_WaveFormsCUFNuo3C 83:=$0; 

PCSfiJUaveFormsCUFNun3C 93:=$0; 

PCS6_UaveFormsi;UFNun3C1Q3:=$0; 

PCS6_UaveFor«sCUFNum3ni3 :=$0; 

PCS6_UaveForinsCWFNun3C123:=$0; 

PCSS_HaveFormsCUFNum3C133 :=$0; 

Pca_UaveFormsCUFNum3C143 :=$0; 

PCS6_UaveFormsCUFNum3C153 :=$0; 

PCSS_UaveFopffisCWFNum3C163:=$0; 

PCSC_UaveFornsCUFNuo3t173 :=$0; 

PCSS_UaveFormsCWFNum3C183 :=S0; 

PCSE_UaveFonnsCWFNum3 Cl 93 : =$0; 

PCSt_UaveForrosCWFNura3 C203 : =$0; 

PCSS_UaveFormsCUFNum3 C21 3 : =$0; 

PCSi_UaveForinsCWFNum3 C223 : =$0; 

PCSS_UaveFormsCUFNuin3[233;=$0; 

en4; 

procetfcire SetUF_ClearSAGl (StartAddr:uord); 
const 

WRIuiifPCSG_C LearSAGI ; 

Wlenght =5; 
begin 

PCSG_UaveAddrsCUFNun3C1 3 :=StartAddr; 
PCSG_UaveAddrsCWFNum3C23:=StartAddr+UFLenght-1; 

PCSS_WaveFornsCUFNun3C 03:=S0; 

PCS6_UaveFormsCWFNun3C 13:=$0; 

PCSG_UaveFormsCUFNun3C 23:=SO; 

PCSS_UaveFormsCWFNum3C 33 :=PCSG_TMG+PCSG_SAG1+ 

PCSG_SRG1+PCSG_SRG2+PCSG_SRG3; 
PCSG_UaveFornsCUFNum3 C 43 : sPCSG_TRG; 

PCS6_UaveFormsCUFNun3C 53: -SO; 

PCSG_WaveFormsCUFNum3 L 63 : =$0; 

PCSG_UaveFornsCUFNum3C 73:-$0; 

PCS6_UaveFormsCWFNum3C 83:=SO; 

PCS6_UaveFormsCUFNun3C 93:=$0; 

PCSG_UaveForns[UFNun3C103 :=S0; 

PCS&_UaveFormsCWFNum3C11 3 : =$0; 

PCS6_UaveFormsCU FNun3 C1 23 : =S0; 

PCS6_UaveFormsCUFNun3C133:=S0; 

PCSE_UaveFornsCUFNum3 C1 43 : =S0; 

PC$C_UaveFormsCUFNum3nS3 :=$0; 

PCSC_UaveFormsCUFNum3[163:=$0; 

PCS6_WaveFormsCWFNum3C173:=$0; 

PCS6_UaveFormsCUFNum3C183 :=S0; 


UFftim=PCSG_Sen a IShi ft; 

Uflenght =6; 
begin 

PCSG_UaveAddrsCUFNuB3C13:=StartAddr; 

PCSS liaveAddrs CWFNun3 [23 : -Start Addr»-WF Lenght-1 ; 
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PCSG_WaveFornisCUFNuin] Cl 93 : =$0; 

PCSG_WaveFormsCUFNum3 C203 : =$0; 

PCSG^UaveFornsCUFNuin] C21 3 : =$0; 

PCSG_UaveForasCWFNum3 C223 : -SO; 

PCSG_WaveFormsCUFNun3C233 :=$0; 
end; 

procedure SetUF_CLearSAG2(StartAddr:word); 
const 

UFNuBFPCSG_ClearSAG2; 

UFlenght =5; 
begin 

PCSG_UaveAddrsCWFNum3 Cl 3 : =Start Addr; 
PCSG_UaveAddrsCWFNuni3C23 :=StartAddr+WF Lenght-1; 

PCSG_WaveForinsCUFNuin3C 03:=$0; 

PCSG_UaveFormsCUFNuo3 C 1 3 : =$0; 

PCSG_WaveForfflsCUFNum3C 23:=SO; 

PCSG_WaveForrasCMFNum3C 33:=PCSG_THG+PCSG_SAG2+ 

PCS6_SRG1+PCSG_SRG2+PCSG_SRG3; 
PCSG_WaveFormsCUFNum3C 43 :=PCSG_TRG; 
PCSG_UaveForn)sCUFNun3C 53:=$0; 

PCSG_WaveFormsCWFNum3 C 63 : =$0; 

PCSG_WaveFormsCUFNun3C 73:=$0; 

PCSG_UaveFormsCUFNuffl3C 83:=S0; 

PCSG_WaveFormsCWFNum3C 93:=$0; 
PCSG_WaveFormsCUFNuro3C103:=S0; 

PCSG_WaveFormsCWFNum3 Cl 1 3 : =$0; 
PCSG__WaveFormsCWFNum3C123:=SO; 
PCSG_Wav/eFormsCUFNura3C133:=$0; 
PCSG_WaveFormsCWFNum3C143:=S0; 
PCSG_UaveFormsCUFNum3C153:=SO; 
PCSG_UaveForfflsCWFNuiR3C163:s$0; 

PCSG_UaveFormsCWFNum3 C173 : =$0; 

PCSG_WaveFormsCWFNuBi3 C183 : =S0; 
PCSG_UaveFor«sCUFNuiD3C193:=SO; 
PCSG_UaveForfflsCUFNum3C203:=$0; 

PCSG__WaveFormsCWFNum3 C21 3 : =$0; 

PCSG_UaveFormsCUFNun3 C223 : =S0; 

PCSG_WaveFormsCUFNum3 C233 : =S0; 
end; 

procedure SetWF_StoreSAG1 (StartAddr :word); 
const 

U F NuBFPCSG_StoreSAGl ; 

WFLenght =10; 
begin 

PCSG_UaveAddrsCUFNum3C13:=StartAddr; 
PCSG_UaveAddrsCWFNun3C23:=StartAddr+UF lenght-1; 

PCSG_UaveFormsCUFNuffl3C 03:=$0; 

PCSG_WaweFornjsCUFNum3C 13:=S0; 

PCSG_WaveFornsCUFNuin3C 23:=SO; 

PCSG_WaveFormsCWFNum3C 33 :=PCSG_TM6+PCSG_SA61+ 

PCSG_SRG1 +PCSG_SRG2+PC SG_SR63; 
PCSG_WaveFormsCWFNum3C 43:=PCSG_,TRG; 
PCSG_WaveFormsCWFNum3C 53 :=PCSG_TM6+PCSG_SAG1+ 

PCSG_SRG1 +PCS6_SR62+PCSG_SRG3; 
PCSG_UaveForrosCUFNura3 C 63 : =PCSG_TRG; 

PCSG WaveFormsCWFNum3C 73:=PCSG TMG+PCSG SAG1+ 


Uae or disclosure of these SBIR dots is sulgect to the restriction on the title page of this report. 



PCSG_SR61+PCS6_SRG2+PCSG_SRG3; 
PCSG_Wavef opmsCWFNuro] C 83 : =PCSG_TRG; 

PCSG^^UaveForrosCWFNum] C 93 : =PCSG_IAG; 
PCSG__WaveFopmsCUFNun3C103 :=S0; 

PCSG_UaveForns{!WFNua3 C11 3 : =$0; 
PCSG_UaveFornsCUFNun3C123:=SO; 

PCSG__UaveForiBsEUFNura3 C133 : =$0; 

PCSG__WaveFornisCUFNuni3 C143 : =$0; 
PCS6_UaveForffis[UFNum3t153:=SO; 
PCSG_UatfeForiasCWFNum3C163:=SO; 

PCSG_UaveForrosCWFNum3C173 :=S0; 

PCS6^UaveFormsCUFNum3 C1 83 : =$0; 

PCS8___UaveFormsCWFNum3 C193 : =S0; 

PCSG_UaveForn)sCUFNum3C203 :=$0; 

PCS6_UaveFortnsCWFNum3 C21 3 : =S0; 

PCSG_UaveFornsCUFNum3 E223 : =$0; 

PCS6_WaveFornsCUFNum3C233 :=$0; 
end; 

procedure SetUF_StoreSAG2 ( Start Addr : word); 
const 

WFNum=PCSG_StoreSAG2; 

WFlenght =10; 
begin 

PCSG_WaveAddrsCWFNum3C13:=StartAddr; 

PCS6_UaveAddrsCWFNum3C23:=StartAddr+WFLenght-1; 

PCS6_WaveFormsCWFNum3C 03:=$0; 

PCS6_UaveFormsCWFNun3C 13:=$0; 

PCSG_WaveFormsCWFNu(n3C 23:=$0; 

PCS6__WaveForinsCWFNuin3C 33 :=PCSG_TMG+PCSG_SAG2+ 

PCS6_SRG1+PCSG__SRG2+PCSG_SR63; 
PCS6_WaveFormsCUFNum3C 43:=PCSG_TRG; 
PCS6_WaveFormsCWFNum3C 53 :=PCS6_TM6+PCS6_SAG2+ 

PCSG_SRG1+PCSG_SRG2+PCSG_SRG3; 
PCS6_WaveFormsCUFNua3C 63 :=PCSG_TRG; 
PCSG_WaveFornjsCUFNua3E 73 :=PCSG_TMG+PCSG_SA62+ 

PCSG_SRG1 +PCSG_SRG2+PCSG_SRG3; 
PCSG_UaveFormsCWFNuro3 C 83 : =PCSG__TRG; 

PCSG_WaveFornsCUFNun3 C 93 : =PCSG_IAG; 

PCSG_WaveForfflsEWFNun3 C103 : =$0; 

PCSG_WaveFormsCWFNuw3C11 3 :=S0; 

PCSG_WaveFormsEUFNun3C123 :=$0; 
PCSG_UaveFornsCUFNum3C133:=$0; 

PCSG_^WaveFormsCWFNuin3E143 :=S0; 
PC^_WaveFornisCUFNum3C153:=SO; 

PCS6_^UaveFornsCUFNum3C163 :=$0; 

PCS6__WaveFor»sCUFNuin3 Cl 73 : =S0; 
PCS6JUaveFornsCWFNum3C183:=SO; 

PCSG_UaveForinsCWFNuB3C193 :*S0; 

PCS6_UaveFormsCUFNun3C203 :=$0; 

PCSG_WaveFormsCWFNuffl3C213 :=S0; 
PCSG_WaveForrosCUFNun3C223:=$0; 

PCSG_UaveForfflsCUFNun3C233 :=$0; 
end; 

procedure SetUF_PshiftA(StartAddr:word); 
const 

WFNud»= PCSG^Psh i f t A; 

WFlenght =5; 
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begin 

PCSG_WaveAddrsCUFNuB3n]:=StartAddr; 

PCSe^WaveAddrsCWFNua] Z21 : =StartAddr+WF lenght-1 ; 

PCS6_UaveFornsCUFNua]C 03: -$0; 

PCSG_WaveForBsCUFNuB]C 1]:=S0; 

PCSS^UaveFormsCUFNuB3C 23:=S0; 

PCSG_UaveFormsEWFNuB3C 33:=PCSG_SA61+ 

PCSG_SRG1+PCSG_SRG2+PCSG_SRG3; 
PCS6_^WaveFormsCWFNuffi3C 43 :=PCSG_TRG; 
PCSG_UaveFornisCUFNuB3C 53:=$0; 

PCS6_UaveFormsCWFNuB3C 63:=S0; 

PCSG_gaveFormsEWFNum3C 73:=$0; 

PCS6_WaveForinsCWFNuB3C 83:=$0; 

PCS6_WaveFormsCWFNuB3C 93:=SO; 
PCSG_UaveFormsCUFNuB3[:i03:=$0; 

PCSG_UaveForBsCUFNuB3 C11 3 : =$0; 
PCSS_WaveForfflsCUFNuB3C123:=$0; 
PCS6_UaveForBsCUFNuB3n33:=$0; 

PCSG_WaveFormsCWFNuB3 C143 : =$0; 

PCSG_WaveForfflsCUFNutn3 Cl 53 : =S0; 
PCSG_UaveForasCWFNuB3C163:=$0; 
PCSG_^Wa\/eFormsCWFNu(n3C173:=$0; 

PCSG_UaveForasCMFNua3C183 :=$0; 
PCSG_WaveForfnsCWFNuffl3E193:=S0; 
PCSG_WaveFormsCUFNum3C203:=$0; 

PCSG_UaveFornisCUFNuin] C21 3 : =$0; 

PCSG_UaveForms CUFNub] C 223 : =S0; 
PCSG_UaveForBsCUFNum3C233:==$0; 
end; 

procedure SetWF_Pshi f tB ( Start Addr : word) ; 
const 

WFNua=PCSG_Pshi f tB; 

UFLenght =5; 
begin 

PCSG_WaveAddrsCWFNum3 Cl 3 : =Start Addr; 
PCSG_UaveAddrsCUFNum3C23:=StartAddr+UF lenght-1; 

PCSG_WaveForasCUFNuB3C 03:=$0; 

PCSG_UaveFormsCUFNua3C 13:=S0; 

PCSG_UaveForasCUFNuB3C 23:=$0; 

PCS6_WaveFormsCWFNuB3C 33 :=PCSG_SAG2+ 

PCS6_SRG1+PCS6_SRG2+PCSG_SRG3; 
PCSG_WaveFormsCUFNum3C 43:=PCSG_TRG; 
PCSG_UaveFormsCUFNuffl3C 53:=$0; 

PCSG_WaveForBsCWFNum3C 63:~$0; 

PCS6_WaveForasCUFNua3C 73:=S0; 

PCSG_UaveFormsCUFNua3C 83:=S0; 

PCSG_UaveForasCUFNua3C 93:=$0; 

PCSG_UaveForasCUFNuB] C103 : =S0; 

PCSG_UaveFormsCWFNum3 Cl 1 3 : =S0; 

PCSG_UaveForBsCUFNuB3C123 :=$0; 

PCSG_UaveForasCUFNuB3C133 :-$0; 

PCSG_UaveForasCWFNua3C143 :=$0; 
PCSG_UaveForfflsCUFNua3C153:==$0; 

PCS6_UaveForasCUFNuB3C163 :=$0; 
PCSG_UaveFormsCWFNuB3C173:=SO; 
PCSG_WaveForBsCUFNum3C183:=$0; 
PCSG_WaveForasCWFNuB3C193:=$0; 
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PCSG_UaveForrosCUFNutnK20]:=$0; 

PCSe^UaveFornsLUFNum] [21 1 : =$0; 
PCS6_UaveFormsCWFNuiB3C223:=$0; 

PCS6_UaveFornsCUFNun]C233 :=$0; 
end; 

procedure SetWF_T ransf 1 (Start Addr : word) ; 
const 

Uf«uoFPCSG_T ransf 1; 

UFLenght =6; 
begin 

PCS6_UaveAddrsCUFNum3C13:=StartAddr; 

PCS6_WaveAddrsCWFNum] C23 : =Start Addr+UF Lenght-1 ; 

PCSG_UaveFormsi:uFNufli3C 03:=$0; 

PCS6_WavefornisCUFNum3C 13:=$0; 

PCSG^UaveFormsCUFNunlC 23:=$0; 

PCS6_WaveForms[WFNuin3C 33:=PCS6_SRG1+PCSG_.SRG2+PCSG_SR63; 
PCS6_UaveFormsCWFNum3i: 43:=PCSG_TRG; 

PCSG_WaveFormsCUFNum3C 53 :=PCSG_SRG1+PCSG_SRG2+PCSG_SRG3; 
PCS6_WaveFormsCWFNun)3C 63:=$0; 

PCS6_,WaveFormsCUFNum3C 73:=S0; 

PCS6_WaveFormsCWFNum3C 83:=S0; 

PCS6_UaveFornsCWFNu>3C 93:=$0; 

PCS6_WaveFormsCUFNum3 C103 : =S0; 

PCS6_WaveFormsCWFNum3 Cl 1 3 : =S0; 

PCSG_UaveFormsCU FNum3 C1 23 : =S0; 

PCS6_WaveFormsCW FNum3 Cl 33 : =$0; 
PCS6_WaveForrosCWFNum3C143:=$0; 

PC96__^UaveFormsCW FNum3 Cl 5 3 : =$0; 

PCSG_UaveFormsCWFNum3 C1 63 : =$0; 
PCSG_Ua\/eFormsCUFNuin3C173:=$0; 

PCS6_WaveFormsCUFNum3C183 :=$0; 

PCSG_WaveFormsCWFNum3C193 :=$0; 

PCS6_UaveForinsCWFNum3 C203 : =$0; 

PCS6_WaveFormsCWFNum3 C21 3 : =$0; 

PCS6_UaveFormsCUFNun3C223 :=$0; 

PCS6_UaveFormsCUFNum3C233 :=$0; 
end; 

procedure SetWF_Transf2(StartAddr:word) ; 
const 

WFNum=PCSG_Transf2; 

UFlenght =8; 
begin 

PCSG_UaveAddrsCWFNum3 C1 3 : =Start Addr; 
PCS6_UaveAddrsCUFNum3C23 : >Start Addr-t-UF Lenght-1 ; 

PCS6__UaveFornsCUFNun3C 03:=S0; 

PCSG_UaveFornsCWFNum3C 13:=S0; 

PCSG_WaweFormsCWFNun3C 23:=SO; 

PCSe_WaveFormsCUFNum3C 33:=PCSG_SR61+PCSG_SRG2+PCSG_SRG3; 
PCS6_UaveFormsCWFNum3 C 43 : =PCSG_TRG; 
PCSG_WaveFormsCUFNum3C 53:=PCSG_SRG1+PCSG_SRG2+PCSG_SRG3; 
PCSG_UaveFornsCUFNun3 C 63 : =PCSG_TRG; 
PCS6_WaveForiBsCWFNuB3C 73 :=PCSG_SRG1+PCSG_SRG2+PCSG_SRG3; 
PCS6_UaveFonnsCUFNun3C 83:=$0; 

PCSG_WaveFormsCUFNun3C 93:=S0; 
PCS6_UaveFormsCWFNum3C103:=S0; 

PCSG_WaveForms CUFNum3 Cl 1 3 : =$0; 
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PCSG_UaveForiasCWFNuffl]C123 :=$0; 

PCS6_UaveFormsCUFNun]C133:=$0; 

PCSG_WaveFormsCUFNuin3C143 :=$0; 

PCSG_WaveFormsCWFNuM3C15] :=$0; 

PCSG_WaveFomisCUFNum3 Cl 63 : =$0; 

PCS6_WaveFormsCUFNuin3C173 :=$0; 

PCSG_WaveFormsCUFNum3C183:=$0; 

PCS6_UaveForaisCUFNum3 Cl 93 : =S0; 

PCS6__WaveFormsCU FNum3 C203 : =$0; 

PCSG_WaveFormsCWFNun3 C21 3 : =$0; 

PCS6_UaveForms CWFNum3 C223 : =$0; 

PCSG_UaveForinsCUFNufli3C233 :=$0; 
end; 

procedure SetWF_Transf 3 (StartAddr : word) ; 
const 

WFNuin=PCSG_T ransf 3; 

WFLenght =9; 
begin 

PCSG_WaveAddrsCWFNum3C13:=StartAddr; 

PCSG_UaveAddrsCWFNum3C23;=StartAddr+UFlenght-1; 

PCSG_UaveFormsCWFNuni3C 03:=$0; 

PCSG_WaveFornsCUFNun3C 13:=$0; 

PCSG_WaveFormsCWFNum3C 23:=$0; 

PCSG_WaveFormsCUFNum3C 33:=PCSG_SRG1+PCSG_SRG2+PCSG_SRG3; 

PCSG_UaveFormsCWFNura3C 43 : =PCS6_TRG; 

PCSG_WaveFormsCWFNum3C 53 :=PCSG_SRG1+PCSG_SR62+PCSG_SRG3; 

PCSG_WaveFormsCWFNuBi3C 63:=PCSG_TRG; 

PCSG_WaveFormsCWFNum3C 73 :=PCSG_SRGl+PCSG_SRG2+PCSG_SRG3; 

PCSG_WaveFormsCWFNum3C 83 :=PCS6_TRG; 

PCSG_WaveFormsCUFNum3C 93:=$0; 

PCSG_WaveFormsCUFNuro3C103:=$0; 

PCSG_WaveFormsCWFNum3C113:=$0; 

PCSG_WaveFormsCWFNum3C123 :=$0; 

PCSG_UaveFormsCUFNum3C133 :=$0; 

PCSG_UaveFornsCUFNun3C143 :=$0; 

PCSG_UaveFornsCWFNun3C153 :=$0; 

PCSG_UaveFornsCUFNutn3C163 :=$0; 

PCSG_UaveFormsCWFNum3C173:=$0; 

PCSG_UaveFormsCWFNum3C183:=$0; 

PCSG_WaveFornisCUFNuin3C193:=S0; 

PCSG_UaveFormsCWFNun3 C203 : =$0; 

PCSG_WaveFormsCUFNura3 C21 3 : =S0; 

PCSG_UaveFormsCUFNura3 C223 : =J0; 

PCS6_UaveForrasCWFNum3C233:=$0; 

end; 

procedure SetWF_Shift1_3inAtr2(StartAddr:word); 
const 

WFNum=PCSG_Sh i f t1_3 i nAt r2; 

UFlenght =12; 
begin 

PCSG_UaveAddrsCUFNuffl3 Cl 3 : =Start Addr; 

PCSG_WaveAddrsCUFNum3C23: “Start Addr+UFLenght-1; 

PCSG_UaveFormsCWFNura3C 03:=PCSG_IntReset; 

PCSG_WaveFormsCWFNum3C 13:=PCSG_IntReset; 

PCS6_WaveForiBsCUFNuni3C 23 :=PCSG_IntReset; 

PCSG_WaveFormsCWFNum3C 33:=PCSG_SR61+PCSG_SRG2+PCS6_SRG3+PCSG_IntReset; 
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PCSG_UaveFormsCWFNum][ 43 :=PCSG_TR6+PCSG_lntReset; 

PCSGJJaveFormsCUFNuinDC 53:=PCS6_SRG1+PCS6_SR62+PCSG_SRG3+PCSG_IntReset; 
PCSG_WaveFor«sCWFNuB][: 63 :=PCS6_SAGl+PCSG_IntReset; 

PCSG_WaveFormsCWFNua3C 7]:=PCSG_SRGl+PCS6_SRG2+PCSG_SRG3+PCSG_IntReset; 
PCSG_UaveFormsCWFNua]C 83:=PCSG_TRG+PCSG_IntReset; 

PCSG_WaveFormsCUFNua3 C 93 :=PCSG_SRG1+PCSG_SRG2+PCSG_SRG3+PCSG_lntReset; 
PCSG_.WaveForms[WFNum3C103:=PCSG_TRG+PCSG_IntReset; 

PCSG_,WaveForasCUFNua3C113:=PCSG_SRGl+PCSG_SR62+PCSG_SRG3+PCSG_lntReset; 

PCSG_WaveFormsCUFNum3C123:=$0; 

PCSG_^UaveFormsCUFNum3 C133 : =$0; 

PCSG_WaveFormsCMFNum3C143:=$0; 

PCSG_UaveFormsCUFNum3[153:=$0; 

PCSG_UaveFormsCWFNum3C163:=$0; 

PCS6_WaveForinsCWFNum3E173:=$0; 

PCSG_WaveForasCUFNum3 C1 83 : =$0; 

PCSG_WaveFormsCWFNum3 Cl 93 : =$0; 

PCSG_UaveFormsCWFNuffl3 C203 : =$0; 

PCSG_UaveForasCWFNua3 C21 3 : =$0; 

PCSG_WaveForasCUFNua3 C223 : =$0; 

PCSG_WaveFormsCWFNum3C233 : =$0; 
end; 


procedure SetWF_Shi f t1 _3i nBt r2 ( Start Addr : word) ; 
const 

UFNum=PCSG_Shift1_3inBtr2; 

MFlenght =12; 
begin 

PCSG_UaveAddr sCWFNum3 Cl 3 : =Start Addr ; 

PCSG_WaveAddrsCWFNum3 C23 : =Start Addr+UF Lenght-1 ; 

PCSG_WaveForasCUFNum3C 03 :=PCS6_IntReset; 

PCSG_UaveFormsCWFNum3 C 1 3 : =PCSG_IntReset; 

PCSG_WaveFormsCWFNum3C 23 :=PCSG_IntReset; 

PCSG_MaveForasCUFNua3C 33:=PCSG_SRGl+PCSG_SRG2+PCSG_^SRG3+PCS6_IntReset; 
PCSG_UaueFormsCUFNum3C 43:=PCSG_TRG+PCSG_IntReset; 

PCSG_UaveFormsCWFNua3C 53:=PCSG_SRG1+PCSG_SRG2+PCSG_SRG3+PCSG_IntReset; 
PCSG_UaveFormsCWFNum3C 63:=PCSG_SAG2+PCSG_IntReset; 
PCS6_UaveFormsCWFNum3C 73:=PCSG_SRGl+PCSG_SRG2+PCSG_SRG3+PCSG_lntReset; 
PCS6_.UaveFormsCWFNum3C 83 :=PCSG_TRG+PCSG_IntReset; 

PCS6_UaveForasCWFNua3C 93:=PCSG_SRGl+PCSG_SRG2+PCSG_SR63+PCSG_IntReset; 
PCS6_WaveFormsCUFNum3C103:=PCSG_TRG+PCSG_IntReset; 

PCSG_WaveFormsCWFNum3C113:=PCSG_SRGl+PCSG_SRG2+PCSG_SRG3+PCSG_IntReset; 
PCSG_WaveForasCUFNua3C123 :=$0; 

PCSG_WaveFormsCWFNua3 Cl 33 : =$0; 

PCSG_WaveFormsCWFNua3 Cl 43 : =S0; 

PCSS_UaveForasCUFNua3 C1 53 : =$0; 

PCSG_UaveFormsCUFNua3C163:=$0; 

PCS6_UaveForasCUFNua3C173:=S0; 

PCSG_UaveForasCUFNua3C183:=$0; 

PCSG_UaveFormsCWFNUB3C193:=$0; 

PCSG_UaveForasCUFNua3C203 :=$0; 

PCS6_WaveFormsCWFNua3 C21 3 : =$0; 

PCSG_WaveFormsCWFNua3 C223 : =$0; 

PCS6_UaveForasCUFNuffi3 C233 : =S0; 
end; 

procedure SetUF_GetADCwai t ( Start Addr : word) ; 
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WFNum=PCSG_GetADCwait; 

UFLenght =9; 
begin 

PCSG^UaveAddrsCWFNutn] C1 ] : =Start Addr; 

PCSG_WaveAddrsCUFNu(a]E2Il:=StartAddr+WFlenght-1; 

PCSG_WaveForrasCUFNum]C 03:=$0; 

PCSG_UaveFornisEUFNun]C 1]:=$0; 

PCSG_UaveFormsEUFNum]E 2!l:=$0; 

PCSG_WaveForinsCWFNum]C 3] :=PCSG_AD_CS; 

PCSG_UaveFormsCUFNum]C 4] ; =PCS6_AD_CS; 

PCSG_UaveFormsCWFNum] C 53 : =PCS6_AD_CS; 

PCSG_UaveFormsCUFNum3C 6]:=PCSG_AD_CS; 

PCSG_WaveFormsCWFNuin3C 73:=PCSG_AD_CS; 

PCS6_WaveFormsEWFNuni3E 83 :=PCS6_AD_CS; 
end; 

procedure SetWF_6etPi xADCwal t ( Start Addr ; word) ; 
const 

WFNum=PCS6_GetPixADCwait; 

UFLenght =26; 
begin 

PCSG_UaveAddrsEWFNum3E13:=StartAddr; 

PCS6_WaveAddrsEUFNum3 E23 :=StartAddr+WF lenght-1 ; 

PCSG_WaveFormsEWFNum3E 03:=$0; 

PCSG_WaveFornjsEUFNum3E 13:=$0; 

PCS6_UaveFormsEUFNum3E 23 :=PCSG_Int Reset; 

PCS6_WaveFornisEWFNuin3E 33 :=PCSG_SRG3+PCS6_IntReset; 

PCSG_WaveFormsEUFNum3E 43:=PCSG_SRG1+PCS6_IntSatnple; 

PCSG_Wa\/eFormsEUFNuin3E 53:=PCS6_SRG1+PCSG_IntSample; 

PCSG_WaveFormsEU FNum3 E 63 : =PCSG_SRG1 +PCSG_IntSainpLe; 

PCSG_UaveFormsEUFNum3E 73:=PCSG_SRG1+PCSG_IntSampLe; 

PCSG_^WaveForrasEUFNum3E 83 :=PCS6_SRG1+PCS6_IntSample; 

PCSG_UaveFormsEWFNum3E 93 :=PCSG_SRGl+PCSG_IntSample; 

PCSG_UaveFormsEWFNui»3E103 :=PCSG_SRGl+PCSG_lntSampLe; 

PCSG_UaveFormsEWFNum3E113:=PCSG_SRG1+PCSG_IntSampLe; 

PCSG_WaveFormsEUFNum3E123:=PCSG_SRG2+PCSG_lntSample+PCSG_lntPoLPos; 

PCSG_UaveFormsEUFNum3E133:=PCSG_SR62+PCSG_IntSample+PCSG_IntPolPos; 

PCSG_WaveFormsEWFNuffl3E143:=PCS6_SRG2+PCSG_IntSample+PCS6_IntPolPos; 

PCSG_WaveForrosEUFNgm3E153:=PCSG_SR62+PCSG_IntSampLe+PCSG_IntPolPos; 

PCSG_WaveFormsEUFNufli3E163:=PCSG_SR62+PCSG_IntSainpLe+PCSG_lntPolPos; 

PCSG_UaveForrasEUFNum3E173:=PCSG_SRG2+PCSG_IntSampLe+PCSG_IntPolPos; 

PCSG_WaveForrasEWFNum3E183:=PCSG_SRG2+PCS6_IntSampLefPCSG_IntPolPos; 

PCSG_WaveFormsEWFNum3E193:=PCSG_SRG2+PCSG_IntSampLe<-PCSG_IntPoLPos; 

PCSG_WaveFormsEUFNum3E203:=PCSG_SRG2+PCSG_AD_CS; 

PCSG_WaveFormsEUFNum3E213:=PCSG_SRG2+PCSG_AD_CS; 

PCSG_WaveFormsEWFNutn3 E223 : =PCSG_SRG2+PCSG_AD_CS; 

PCSG_UaveFormsEWFNutn3E233:=PCSG_SRG2+PCSG_AD_CS; 

PCSG_WaveFormsEWFNum3E243:=PCSG_SRG2+PCSG_AD_CS; 

PCSG_UaveFormsEWFNura3E253 : =PCSG_SRG2+PCS6_A0_CS; 
end; 

procedure SetUF_ABGC(StartAddr:word); 
const 

WFNum=PCS6_ABGC_WF; 

UFLenght =4; 
begin 

PCSG_UaweAddrsEUFNum3E13:=StartAddr; 

PCSG_UaveAddrsEUFNum3 E23 : =Start Addr+UF Lenght-1 ; 
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PCS6_UaveFormsCUFNun]C 0]:=$0; 

PC^_UaveFormsCWFNuiB]C 1D:=$0; 

PCSSJIaveFormsCUFNuinJC 2] :=PCS6_ABGC; 

PCSG_UaveFornsCUFNun](; 3]:=$0; 
end; 

procedure LoadUF( UFNuin: word }; 
begin 

PCMloadSRAM(PCSG_WaveAddrsCWFNuin]C1], PCSG_WaveAddrsCWFNum]C2], 
PCSG_UaveFormsCUFNuin] ) ; 

end; 

procediire SetAndLoadWFs; 
var 

i: word; 
begin 

PCS6_ToByPass; 

Set_Timer1 (PCSG_Sys_CLk_Dev); 

Set«F_ZeroUF(0); 

Set«F_Seri8LShift(PCSG_WaveAddrsC1-1]C23+1); 

SetUF^CLearSAGI (PCSG_UaveAddrsC2-1DC2D+1); 
SetUF_CLearSAG2(PCSG_WaveAddrsC3-13i:2]+1); 

SetHF_StoreSA6l ( PCSG_WaveAddrsC4-1 3 L23+1 ) ; 
SetUF_^StoreSAG2(PCSG_WaveAddrsC5-13C23+l); 
SetUF_PshiftA(PCSG_WaveAddrsC6-13C23+1); 

SetUF_Psh i f tB ( PCSG_WaveAddrsC7-l 3 C23+1 ) ; 

SetWF_Transf 1 (PCS6_WaveAddrsC8-1 3C23+1); 

SefllF_Transf 2 ( PCSG_UaveAddrsC9-1 3 C23+1 ) ; 

SetUF_Transf3(PCSG_WaveAddrsC10-13E23+1); 

SetUF_Shift1_3inAtr2(PCSG_UaveAddrsC11-13C23+1); 

SetWF_Shi f t1_3i nBtr2 ( PCS6_WaveAddrsC1 2-1 3 C23+1 ) ; 

SetyF^Get ADCwai t ( PCSG_UaveAddrsC13-1 3 C23+1) ; 

SetUF_6etPi xAOCwai t (PCSG_WaveAddrsC14-1 3C23+1); 
SetUF_ABGC(PCSG_UaveAddrsC15-1 3 C23+1); 
for i:=0 to PCSG_MaxWF do LoadUF(i); 

PCS6__ToByPass; 

end; 

procedure TestToBin; 
var 

i,j,k:byte; 

chrchar; 

begin 

k:=0; 

for i:=0 to 51 do 
begin 

for j:=0 to 4 do 
begin 

writeCN ',k:3/ ',ToBin(k)/ '); 

if k<255 then inc(k); 

end; 

write Int- 
end; 

ch:-ReadKey; 

end; 

> 

procedure PCSG_ToByPass; 
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begin 

PortwCPCS6_ControLPortH:=PCSa_ByPass; 

end; 

procedure ExecUFV( UFnun, Tiaes: word ); 
begin 

{ByPassOFF;> 

Set_T i merO( Ti mes ) ; 

PortWCPCS6_USR_Port3 := PCSG_WaveAddrsCUFNum3C‘13; 

PortWCPCSG_ControLPort]:= PCSG_CR_T01_EN; { $8;> 

Port[;PCSG_ControLPort] := PCSG_RUN_V; 

PortCPCSG_lACKD:=0; 

end; 

procedure ExecUF( UFnuni/ Tines: word ); 
begin 

■CByPassOFF;> 

Set_T i nerOdi nes) ; 

PortMCPCSG_WSR_PortD := PCSG_WaveAddrsCWFNun3C1]; 

PortWCPCSG_ControLPort3:= PCSG_CR_T01_EN or PCSG_CR_RAMprogr; 
PortWCPCSG_ControLPort]:= PCS6_CR_T01_EN; -C $8;> 

PorttPCSG_ControLPort] := PCSG_RUN_HV; 

PorttPCSG_IACK]:=0; 

end; 

procedure ExecUFwait( UFnuni/ Times: word ); 
begin 

{ByPassOFF;> 

Set_Ti merO ( T i mes ) ; 

PortWCPCSG_USR_Port] := PCSG_UaveAddrsCWFNum]C13; 

PortUCPCSG_ControlPortT:= PCSG_CR_T01_EN or PCSG_CR_RAHprogr; 
PortWCPCSG_ControlPort3:= PCSG_CR_T01_EN; { $8;> 

PortCPCSG_ControLPort3 := PCSG_RUN_HV or PCSG_CR_WAIT_En; 

Por t CPCSG_I AGIO : =0; 
end; 

procedure ExecUFstop( UFnum/ Times: word ); 
begin 

{ByPassOFF;> 

Set_T i merO ( Ti mes ) ; 

PortUCPCSG_USR_Port3 := PCSG_UaveAddrsCWFNun]C13; 

PortUCPCSG_ControLPort3:= PCSG_CR_T01_EN or PCSG__CR_RAMprogr; 
PortWCPCSG_ControLPort]:= PCSG_CR_T01_EN; i $8;> 

PortCPCSG_,ControLPort] := PCSG_RUN_HV or PCSG_CR_STOP_En; 

PortCPCSG_lACK3:=0; 

end; 

procedure Uait_PCSG_Finish; 
begin 
repeat 

until PortCPCSG_StatusPort!J and (PCSG_SP_Time0ut_T0 or PCSG_SP_SecInc) = 
PCSG_SP_Time0ut_T0; 

end; 

function PCSG_Finish:booLean; 
begin 

PCSG_Finish := PortCPCSG_StatusPort] and (PCSG_SP_Time0ut_T0 or PCSG_SP_SecInc) = 
PCSG_SP_Ti neOut_T0; 

end; 
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functian SOclearPCSGstop<Npix:word; StpAtN: word; var StpAtp:TstpAtpoint) :word; 
var 

Nst, TO, StsP: word; 

Lt, Ht; byte; 
begia 
Nstr=0; 

SDcdear PCSGstop : -Nst ; 
if %1x=0 then EXIT; 

ExedlFstop(PCSG_SeriaLShift, Npix); 
repeat 
begin 

StsP:=PortCPCSG_StatusPort3; 
if StsP and PCSG_SP_Stoped = PCSG_SP_Stoped then 
begin 

{GenSynch;> 

{TO:=GetTimerO;> 
tt : =PortCPCSG_T i aer03; 

Ht :=PortCPCS6_Timer03; 

T0:=Lt+256*Ht; 
if Nst<=StpAtN then 
begin 
inc(Nst); 

StpAtpCNst] : =Npi x-TO+Pi xNot Look; 
end 
else 
begin 

Port£PCS6_ControLPort];=PCSG_Run_HV; 

end; 

if StsP and PCSG_SP_TimeOut_TO O PCSG_SP_TioeOut_TO then 
begin 

PortCPCSG_lACK]:=0; 

end; 

end; 

UKtiL StsP and (PCS6_^SP_TioieOut_TO or PCSG_SP_SecInc) = PCSG_SP_TiaieOut_TO; 
Stpltpi:0]:-Nst; 

SDclearPCSGstop:=Nst; 

endt 

proceAtre SDc learPCSG ( Nt i nes : word) ; 
begm 

if ttinessQ then EXIT; 

ExecHF(PCSG_SeriaLShift, Ntimes); 

Uail^PCS6_Finish; 

erxi; 

proceritire StoreSI PCSGCNti mes : word) ; 
begin 

if Kines^O then EXIT; 

SetffiGl_ON; 

Exee«F(PCSG_ClearSAG1, 1); 

Waif_PC SG_F ini sh; 

ExesWF(PCSG_StoreSAGl, Ntines); 

Wail_PCSG_F i ni sh; 

ExecUF(PCSG_CLearSAGl, 5); 

Uait_PCSG_F i ni sh; 

SetlBGI^OFF; 

endt 

procflriure StoreS2PCSG(Nt i mes : word) ; 
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begin 

if Ntimes=0 then EXIT; 

SetAB6I_0N; 

ExecWF(PCS6_ClearSA62, 1); 

Wait_PCSG_Finish; 

ExecWF(PCS6_StoreSA62, Ntines); 

Uait_PCSG_Finish; 

ExecUF(PCSG_CLearSAG2, 5); 

Uait_PCSG_Finish; 

SetABGI_OFF; 

end; 

procedure ShiftAlines1_3^PCSG(NL:word); 
begin 

if NL=0 then EXIT; 

ExecWF(PCSG_PshiftA, NL); 

Uait_PCSG_Finish; 

end; 

procedure ShiftBlines1_3__PCSGCNL:word); 
begin 

if NL=0 then EXIT; 

ExecMFCPCSG_PshiftB, NL); 

Wai t_PCSG_F i ni sh; 
end; 

procedure TransfIPCSG; 
begin 

ExecWF (PCSG_Transf 1 , 1 ) ; 

Wai t_PCS6_F i ni sh; 
end; 

procedure Transf2PCSG; 
begin 

ExecMF(PCSG_Transf1, 1); 

Wait__PCS6_Finish; 

end; 

procedure Transf3PCSG; 
begin 

ExecWF <PCS6_Transf1, 1); 

Wai t_PCSG_F ini sh; 
end; 

procedure Shift1_3inAtr2_PCSG; 
begin 

ExecWF(PCSG_Shift1_3inAtr2, 1); 

Uait_PCSG_Finish; 

end; 

procedure Shift1_3inBtr2_PCSG; 
begin 

£xecWF(PCSG_Shift1_3inBtr2, 1); 

Wai t_PCSG_F ini sh; 
end; 

procedure ABGClockPCSG(TimeHs;word); 
const 

ABGCmuL^SOO; 

var 
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rep, Tmod/ i: word; 
begin 

if TineNs<64 then 
begin 

TKid: -Ti aeHs*ABGCnu L; 
if TiaeHs=0 then TBod:=10; 

ExecWF(PCS6_AB6C_Wf, Tmod); 

Wait^PCSG_F i ni sh; 
end 
else 
begin 

rep TimeHs div 50; 
if pep<1 then rep:=1; 

if TimeMs-rep*50<0 then Tmod:=0 else Tnod:=TineHs-rep*50; 
for i:=1 to rep do 
begin 

ExecWF(PCSG_AB6C_WF, 50*AB6 CbuL); 

Uai t_PCSG_F ini sh; 
end; 

if (TfflocOO) and (TBOd<50) then 
begin 

ExecWF(PCSG_ABGC_WF, Tmod*ABGCmuL); 

Uai t__PCS6_Fini sh; 
end; 
end; 

end; 

<. SlfMDef REMTSn 

function GetADCwait_PCSG: word; 
var 

DM: word; 
begin 

-CGen$ynch;> 

■GSIfMOef REMOTE > 

ASM 


BOV 

dx. 

ADCstr 

BOV 

ax. 

AD_CSr 

out 

dx. 

ax 

BOV 

ax. 

ADCstrInit 

out 

dx. 

ax 

end; 

{ASM> 

CSEndlf > 



ExecUFwait(PCSG_GetADCwait, 1); 
CSlfNOef REMOTE > 

ASM 

■ov cx, 10 

now si, A0C_BUSY_0 or A0C_M_WAIT_0 
MOV dx, AOCouts 

ai: 

in ax, dx 

■ov bx, ax 

and bx, si 

cap bx, A0C_BUSY_0 

Loopne 31 

nnv ODD, ax 

mow dx, ADCstr 

now ax, AD_CSr 
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out dx, ax 
nov ax, ADCstrInit 
out dx, ax 
end; -CASN> 
{Uait_PCS6_Finish;> 
CSELse > 

ASH 



procedure GetPixADCwait_PCSG(var OataHin: TOataMinSt; UinU: word); 
begin 

{SIfNDef REHOTE > 


PortCADCstr] :=AD_CSr; 

PortCADCstr] :=ADCstrInit; 

CSEndlf > 

ExecWFwai t ( PCSG_GetP i xAOCwai t , Ui nU) ; 
C6enSynch;> 

ASM 


Ids 

di. 

DataHin 

nov 

cx. 

WinW 

mov 

si. 

ADC_M_UAIT_0 

nov 

bx. 

A0C_BUSY_0 

32: 



nov 

dx. 

ADCouts 

ai: 



33: 



in 

ax. 

dx 

xor 

ax. 

si 

test 

ax. 

si 

jz 

31 


test 

ax. 

bx 

jz 

33 


nov 

Cds:dil, ax 

inc 

di 


inc 

di 


nov 

dx. 

ADCstr 
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QSC 

dx, ax 

BDV 

aX/ AOCstrlnit 

OKC 

dx, ax 

Isop S2 

md; 

> {ASH> 

{smoef REMOTE > 

Asa 


pash 

bp 

Us 

di, DataMin 

mv 

cx, WinU 

wm/ 

si, ADC_BUSY_0 

S: 


aw 

bp, 10 

am/ 

dx, ADCouts 

*hg 

bp, cx 

ai: 


ta 

ax, dx 

aau 

bx, ax 

md 

bx, si 

«P 

bx, A0C_BUSY_0 

laopne S1 

ariig 

bp, cx 

aov 

[ds:di], ax 

lac 

di 

iac 

di 

mu 

dx, ADCstr 

SBW 

ax, AD_CSr 

aac 

dx, ax 

SBV 

ax, ADCstrlnit 

oat 

dx, ax 

laop 

32 

W 

bp 

od; 

tASM> 

{$Etse 

> 

ASH 


pash 

bp 

ISs 

di, DataMin 

amt 

cx, UinW 

mu 

si, ADC_BUSY_0 ( 

X: 


aau 

bp, 10 

aow 

dx, ADCouts 

achg 

bp, cx 

m: 


m. 

ax, dx 

saw 

bx, ax 

ad 

bx, si 

"P 

bx, ADC_BUSY_0 

laopne 31 

adtg bp^ cx 

wmi 

Cds:di3, ax 

iac 

di 

me 

di 


<lo be reonved > 

wmi 

dx, ADCstr 

MW 

ax, A0_CSr 

aat 

dx, ax 
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atov aX/ ADCstrlnit 
out dX/ ax 
■C ****iU*AAi>!JtA *******> 

Loop 32 
pop bp 
end; <ASH> 
tSEndlf > 
end; 

C $EndIF> 

procedure ClearIandS_PCS6(Ntines:word); 
begin 

if Ntimes>0 then 
begin 

SetABGI^ON; 

ExecW F ( PCS6_StoreSA6l , Nt i TCS*(Nof A2 L i nes+10) > ; 

Uai t__PCSG_F i ni sh; 

ExecW F ( PCS6_StoreSA62 , Nt i njes*(Nof A2 L i nes+10) ) ; 

Ua i t_PCSG_F i ni sh; 

SetABGI_OFF; 

end; 

<ByPassON;> 

{Transf3;> 

end; 

procedure CLearIandSandSR_PCSG(Ntimes:word); 
begin 

if Ntines>0 then 
begin 

SetABGI_ON; 

ExecWF ( PCSG_StoreSA61 , Nt i lues* (Nof A2 L i nes+1 0) ) ; 

Ua i t_P CSG_F i n i sh; 

ExecWF ( PCSG_StoreSAG2 , Nt i mes*(Nof A2 L i nes+1 0) ); 

Wait_PCSG_Finish; 

SetAB6I_0FF; 

end; 

-CByPassON;> 

■CTransf3;> 

SDc Lear PCSG (Nof Se Lements+Nof OLpi xe Ls ) ; 
end; 

procedure PCSG_lnitiaLize; 
var 

ch:char; 
i: word; 
begin 

SetAndLoadUFs; 

£ 

if PCSG^Debug^On then 
begin 
CLrScr; 

writeLnCPCSG aemory TEST'); 
writeLn; 

for i:=0 to PCSG_MaxUF do 
begin 

CheckRAHn(i); 

if iOPCS6_HaxWF then writeLnC Press any Key to see next UaveFora') 
eLse writeLnC Press any Key to START PCSG'); 

ch:=Readkey; 
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end; 

writelnCStoreSlPCSG ~ TEST*); 
writelnC ' Press any Key to Continue'); 
repeat 
fienSynch; 

StoreSlPCSGdO); 
until KeyPressed; 
di:-ReadKey; 

writeln('StoreS2PCSG - TEST'); 
writelnC 'Press any Key to Continue'); 
repeat 
fienSynch; 

StoreS2PCSG(10); 
until KeyPressed; 
chzsReadKey; 

PCSG_TOByPass; 

write In; 

writelnC Press any key to EXIT'); 
ch:-ReadKey; 

end; 

> 

end; 

procedure PCSGTest1(Ntimes:word); 
begin 

ExeellFCPCSG__Transf1, Ntimes); 
end; 

procedure TestPCSGasn(NN:word); 
var 

j: word; 
begin 

for j:=0 to NN do 
begin 

PortCPCSG^TinerContr] :=PCSG_TO_Status; 
end; 
end; 

Begin 

PCSG_Initialize; 

End. 
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unit St Test; 


{ Housekiping and display Search result - in TEST aode > 
interface 

procedure TestV (Times: longint); 

{SIfNDef REMOTE > 

procedure ShowFastSearchCNp: integer); 
tSEndlf > 


implementation 

uses 

tSIfNDef REMOTE > 

CRT, 

■CSEndlf > 

StdefOl, StAqsOI, StAQOI, STMainOT, StPpicOI, StCpic04, 
StAuxOI, StPCSGOI, StSrchOI, StRemI; 


CSIfNDef REMOTE > 

procedure ShowFastSearchCNp: integer); 
var 

j, i, Jm: word; 
ch: char; 

Lfr: word; 
begin 
ClrScr; 

writelnC Search for line LineNotLook+1 :3, ‘ to 976 only odd lines'); 

writelnC Search for pixel PixNotLook:3, ‘ to 1194; 1170 last light'); 

writelnC DAC treshold 0AC3V:4, ' Exposure ' ,ExposureTime, 

' Total pix above treshold ',Np); 

writeln; 

writelnC Line # pix X coordinate'); 

writeln; 

if true -CStpAtpointsC0,03X)> then 
begin 

if StpAtlinesMax<=40 then Lfr:=StpAtlinesHax else Lfr:=40; 
for j:= ■CStpAtlinesMax> Lfr downto 1 do 
begin 

write(StpAtpointsEj,03:3, ' '); 
write(StpAtpointsEj,StpAtpointsMax+13:4, ' ' ); 
for i;=1 to C3*stpAtN> 14 do 
begin 

write(StpAtpointsCj,i]:4, ‘ '); 
end; {for> 
writeln; 
end; {for> 
end; {if> 

if StarSearch.StNfound>0 then 
begin 

writelnC Star Found ',StarSearch.StNfound); 
for j:>1 to StarSearch.StNfound do 
begin 

writeCStar ',j:2, ' LineB ',StarSearch.StSearchDACj].LineB, 

' LineM ' ,StarSearch.StSearchDACj].LineH, 

' LineT ' ,StarSearch.StSearchDACj3.LineT); 
write( ' PixL ',StarSearch.StSearchOA[j3.PixL, 
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' PixH ',StarSearch.StSearchDAi:j].PixM, 

' PixR *,StarSearch.StSearchDACj3.PixR); 

writeLn; 

end; 

end; 

i 

writeCTo Exit search press ESC; < > change treshoLd; space to cycle treshold'); 

writelnC Press any Key to Continue'); 
repeat 

ClearlandSandSR_PCSG(2); 
unti L Keypressed; 
ch;=ReadKey; 

> 

end; 

tSEndlf > 

■CSlfNDef REMOTE > 
function DisplTestV: char; 
var 

i: integer; 
const 

Factor: arrayCO. .VoLtMax] of float = 

<1.0, 0.32, 0.32, 0.5, 0.5, 0.5, 0.5, 1.0, 

0.5, 0.5, 0.5, 0.5, 0.5, 0.32,0.32,0.32, 

1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1.0 , 

1 . 0 ); 

begin 

ClrScr; 

6oToXY(1,1); 

writelnC 'Internal Voltage Test'); 
for i;=0 to 23 do 
begin 
case i of 


0: writeCCh ',i 

2,' 

TempOut 


■); 

1: writeCCh ',i 

2,' 

+12V c 



2: writeCCh ',i 

2,' 

+12V a 


■); 

3: writeCCh ',i 

2,' 

+6VDr (+5) 



4: writeCCh ',i 

2,' 

+5V c 



5: writeCCh *,i 

2,' 

+5V a 


■); 

6: writeCCh *,i 

2,' 

+2V 


■); 

7: writeCCh ',i 

2,' 

-Bias (-4.6V) 



8: writeCCh ',i 

2,' 

-ABG (-7V) 



9: writeCCh *,i 

2,' 

nlAG (-5.5V) 

D2 


10: writeCCh *,i 

2,' 

mABG (-1.SV) 


■); 

11: writeCCh ',i 

2,' 

IntBofs(-1.5V) 

01 


12: writeCCh *,i 

2,' 

■•■Bias (OV) 



13: writeCCh *,i 

2,' 

-11V 



14: writeCCh ',i 

2,' 

-12V a 



15: writeCCh ',i 

2/ 

-12V c 


■>; 

16: writeCCh ',i 

2/ 

Spare 



17: writeCCh ',i 

2,' 

VoltMonit 


■); 

18: writeCCh *,i 

2,' 

AnplOut 



19: writeCCh ',i 

2,' 

CCD direct 



20: writeCCh ',i 

2,' 

Tenp PC 



21: writeCCh ',i 

2,' 

IntBout 



22: writeCCh ',i 

2,' 

Tenp Lens 


■>; 

23: writeCCh ’,i 

2/ 

Temp CCD 


•>; 

end; -Ccase> 





writelnC ADC ',<$FFF and VoLtagesCi3) 

:4, 

= 
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( ($FFF and VoltagesCi3)-2048.0)/2048.0 * 5.0 / factorCi] :6:2/ V ' ); 


end; 

writeLnC Press SPACE to start acquisition/ ESC to EXIT'); 
delaydOOO); 

if keyPressed then DisplTestV:=ReadKey else displTestV:='x'; 
end; 

«Endlf > 

tSIfDef REHOTE > 
function DispLTestV: char; 
var 

i: integer; 

St, StO, stl, st2, st3: string; 
const 

Factor: arrayCO. .VoLtNax] of float = 

(1.0/ 0.32/ 0.32, 0.5, 0.5, 0.5, 0.5, 1.0, 

0.5, 0.5, 0.5, 0.5, 0.5, 0.32,0.32,0.32, 

1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1 . 0 , 1.0 , 

1 . 0 ); 

begin 

PutStrC Internal Voltage Test'+#13#10); 
for i:=0 to 23 do 
begin 

Str(i:2,st1); 
case i of 


0: st2:=' 

TempOut 


1: st2:=' 

+12V c 


2: st2:=‘ 

+12V a 


3: st2:=‘ 

+6V0r (+5) 


4: st2:=‘ 

+5V c 


5: st2:=‘ 

+5V a 


6: st2:=' 

+2V 


7: st2:=' 

-Bias (-4.6V) 


8: st2:=' 

-ABG (-7V) 


9: st2:=* 

bIAG (-5.5V) 

D2 

10: st2:=' 

mABG (-1.5V) 


11: st2:=' 

lntBofs(-1.5V) 

D1 

12: st2:=' 

••■Bias (OV) 


13: st2:=' 

-11V 


14: st2:=' 

-12V a 


15: st2:=' 

-12V c 


16: st2:=' 

Spare 


17: st2:=* 

VoltHonit 


18: st2:=' 

AnplOut 


19: st2:=' 

CCD direct 


20: st2:=‘ 

Temp PC 


21: st2:=* 

IntBout 


22: st2:=‘ 

Tenp Lens 


23: st2:=‘ 

Temp CCD 


end; 'Ccase> 



St:=‘Ch *+st1+st2; 

str(($FFF and VoltagesCi3):4,st1); 

str(( ($FFF and Voltagesti3)-2048.0)/2048.0 * 5.0 / factorCi] :6:2, st2); 

St0:=' ADC '+st1+* = '+St2; 

St:=St+St0; 

PutStr(St+#13#10); 

0elay(500); 

<. 

writelnC ADC *,($FFF and VoltagesCi]):4, ' = ', 

( <$FFF and VoltagesCi3)-2048.0)/2048.0 * 5.0 / factorCi] :6:2,' V ’ ); 
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> 

end; 

PutStrC Press SPACE to start acquisition, ESC to EXIT'+#13#10); 
deLaydOOO); 

Di splTestV : =GetChar; 
end; 

{SEndlf > 

procedure TestVCTines: Longlnt); 
var 

i; byte; 
j: longlnt; 
ch: char; 
const 

dirOACO: boolean = true; 
dirDAd: boolean = false; 
dirOAC2: boolean = true; 
dirOAC3: boolean = false; 
dirDACA: boolean = true; 
dirDACS: boolean = false; 
dirDAC6: boolean = true; 
dirDAC7: boolean = false; 
begin 
j:=0; 

ClearIandSandSR_PCSG(2>; 

repeat 

begin 

inc(j); 

ClearIandSandSR_PCS6(1 ); 
if J>20 then PCooLer_ON; 

if dirDACO then inc(DAC0V,10O> else dec(DAC0V,100); 

if DAC0V>=3990 then dirDACO: =false; 

if DAC0V<=120 then dirDACO:=true; 

if dirDAd then inc(DAClV,100) else dec(DAC1V,100); 

if DAC1V>=3990 then dirDAC1:=false; 

if DAC1V<=120 then dirDACl:=true; 

if dirDAC2 then inc(DAC2V,100) else dec(DAC2V,100); 

if DAC2V>=3990 then dirDAC2:=false; 

if 0AC2V<=120 then dirDAC2:=true; 

if dirDAC3 then inc(DAC3V,100) else dec(DAC3V,100); 

if DAC3V>=3990 then dirDAC3:=false; 

if 0AC3V<=120 then dirDAC3:=true; 

if dirDACA then inc(DACAV,100) else dec(DACAV,100); 

if DACAV>=3990 then dirDACA:=false; 

if DACAV<=120 then dirDACA:=true; 

if dirDACS then inc(DAC5V,100) else dec(DAC5V,100); 

if DAC5V>=3990 then dirDACS :=false; 

if DACSV<=120 then dirDAC5:=true; 

if dirDACG then inc(DAC6V,100) else dec(DAC6V,100); 

if DAC6V>=3990 then dirDAC6:=false; 

if DAC6V<=120 then dirOAC6:=true; 

if dirDAC? then inc(DAC7V,100) else dec(DAC7V,100); 

if DAC7V>=3990 then dirDAC7:=false; 

if DAC7V<=120 then dirOAC7:=true; 

> 

Anal_ON; 

Lx>adDAC(DACOV, 0); 

LoadDAC(DAC1V, 1); 

LoadDAC(0AC2V, 2); 
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LoadOAC(OAC3V, 3); 

LoadDAC(DAC4V^ 4); 

LoadDACCOACSV, 5); 

LoadDAC(0AC6V, 6); 

LoadDAC(DAC7V, 7>; 

CLearlandSandSR_PCSG(1); 

VoLtHonit (Voltages); 

ClearIandSandSR_PCS6(1); 
aifNDef REHOTE > 
ch:=DisplTestV; 

{$ELse > 

{$IfNDef REHS> 

CH:=‘ 

■C$ELSE> 

ch:=OisplTestV; 

{$Endlf> 

<$eNDiF > 

ClearlandSandSR_PCSG(1 ); 
end; 

until (ch=#27) or (ch=‘ ') or (ch=#0) or (j>=TiiBes); 
if ch=#27 then HALT; 
end; 

Begin 

End. 
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unit StSrchOI; 


{. Search control > 
interface 

uses 
StDef Dis- 
function StSearch(Nstar:word): word; 
implementation 
uses 

StAqOI/ StPCSGOI, StPpicOI, Sttest; 

function StLookPixCyi : word): boolean; 
var 

i/ Xmins Xmax: word; 
begin 

StLookPi X : =f a Ise; 

if (StpAtPointsCyi/StpAtPointsMax-t-IKStpAtpointsHax) and 
(StpAtPointsCyi,StpAtPointsMax+1]>=1) then 
begin 
Xnax:sO; 

Xmi n : =Nof ImageKaxX; 

for i:=1 to StpAtPointsCyi,StpAtPointsMax+1] do 
begin 

if StpAtPointsCyi,i]<Xmin then Xmin:=StpAtPointsCyisi]; 
if StpAtPointsEyisi]>Xmax then Xroax:=StpAtPointsCyi,i]; 
end; 

if (Xmax-Xmin>=PixUreq) and (Xmax-Xmin<PixWreqMax) then 
begin 

StLookPix:=true; 

end; 

end; 

end; 

f unction XmeanCyi: word; var XminsXmaXs XW; word): word; 
var 

i: word; 
begin 
Xmax:sO; 

Xmin:=NoflfflagehaxX; 

for i:=1 to StpAtPointsCyi/StpAtPointsHax+13 do 
begin 

if StpAtPointsCyi/i3<Xfflin then Xmin:=StpAtPointsCyi,i3; 
if StpAtPointsCyisi3>Xroax then Xmax:=StpAtPointsCyi,i3; 
end; 

XW:=Xmax-Xmin; 

Xmean:= round((Xmax+Xmin)/2); 
end; 

function StLook: word; 
var 

xi, yi: word; 

YgapFrom:word; 

LineFs, LineLs, Yf, Yl: word; 
begin 
StLook:=0; 
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StarSearch.StNsearch:=1; 

Sta r Sear ch . StNf ound : =0; 
if StpAtpointsC0,1]>=9999 then EXIT; 

Star Search . BadLines : =0; 

StarSearch . DAC3VTh : =DAC3V; 

LineFs:=0; 

LineLs:-0; 

Yf:=0; 

Yl:=0; 

YgapP ron ; =Li neNotLook; 
yi :=0; 

for yi:=1 to StpAtPointsC0,0] do 
begin 

if stLookPixCyi) and 

((StpAtPoints[yi,01-YgapFrom)>=LineGapRequired) and 
<(NofPUnes-StpAtPointsCyi,03)>=2*LineGapRequired) and 
(<StpAtPointsCyi/03=LineLs+2) or (LineFs=0 ) ) and 
(yi<StpAtPointsC0/03) then 
begin 

if LineFs=0 then 
begin 

LineFs:=StpAtPointsCyi,0]; 

LineLs:=LineFs; 

Yf:=yi; 

Yl:=Yf; 

end 

else 

begin 

Li neLs : =StpAtPoi ntsCy i , 0]; 

Yl:=yi; 

end; 

end 

else 

begin 

if (yi=StpAtPointsC0,0]) and 
StLookPixCyi ) and 

( ( StpAtPoi ntsCy i ,03-YgapF rom)>=Li neGapRequi red) and 
((NofPLines-StpAtPointsCyi,03»=2*Line6apRequired) and 
(StpAtPointsCyi,0]=LineLs+2) then 
if LineFs>0 then 
begin 

Li neLs : =StpAtPoi ntsEyi , 0] ; 

YL:=yi; 

end; 

if (LineFs>0) and 

( <LineLs-LineFs)>=LineWreq ) and ((LineLs-LineFsX=LineUreqHax) and 
( <StpAtPointsCyi,StpAtPointsHax+13<StpAtpointsMax) or 
(StpAtPointsEyi,0]>LineLs+Line<japRequired) or 
(yi=StpAtPoint$C0/0]) ) then 
begin 

inc(StarSearch.StNfound); 

StarSearch . StSearchOAEStarSearch . StNsearch!! . Li neB : =Li neFs; 

StarSearch. StSearchDAEStarSearch.StNsearch2.LineT:-LineLs; 

StarSearch. StSearch0AEStarSearch.StNsearch3.LineH:=(LineLs-»'LineFs) div 2; 
StarSearch. StSearch0AEStarSearch.StNsearch3.LineU;=(LineLs-LineFs); 
StarSearch. StSearchDAEStarSearch.StNsearch3.LineGapB:=Linefs-YgapFron; 
StarSearch. StSearchDAEStarSearch. StNsearchl . LineGapT:^; 

StarSearch . StSearchDAEStarSearch. StNsearch] . Pi xW : = 
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Xmean( (Yf+YL) div 2, 

StarSearch.StSearchDACStarSearch.StNsearch3.PixL/ 

StarSearch. StSearchDACStarSearch. StNsearch3 . PixM, 
StarSearch.StSearchOACStarSearch.StNsearch3.PixR); 

if (StarSearch. StNsearch>1) and 

(StarSearch. StSearchDACStarSearch. StNsearch-13.LineGapT=0) then 
begin 

StarSearch. StSearchDACStarSearch. StNsearch-1 3, LineGapT:=LineFs-YgapFrom; 
end; 

YgapF rom: =Li nets; 
if stLookPix(yi) then 
begin 

Linefs;=StpAtPointsCyi/03; 

LineLs;=LineFs; 

Yf:=yi; 

YL:=Yf; 

end 

else 

begin 

LineFs:=0; 

LineLs:=0; 

Yf :=0; 

Yl:=0; 

YgapF rom : =StpAt Poi ntsCyi / 03; 
end; 

inc(StarSearch. StNsearch); 
end 
else 
begin 

if (StarSearch. StNsearch>1) and 

(StarSearch. StSearchDACStarSearch. StNsearch-1 3. LineGapT=0) then 
begin 

StarSearch . StSearchDACStarSearch. StNsearch-1 3 . Li ne6apT:= 

StpAtPointsCyi /03-StarSearch. StSearchDACStarSearch. StNsearch3.LineT; 
end; 

LineFs:=0; 

LineLs:=0; 

Yf:=0; 

YL:=0; 

if StpAtPointsCyi /StpAtPointsHax+13>PixUreq then 
begin 

YgapF rom:=StpAtPointsCyi, 03; 
inc(StarSearch.BadLineS/ LineLs-LineFs); 
end; 
end; 

end; 

end; 

if StarSearch. StNfound>NofStNax then StarSearch. StNfound:=0; 

StLook:=StarSearch.StNfound; 

end; 

function SetIntBuffOfsTh: boolean; 
var 

Np/ Ntr/ Nl: word; 

ThS, ThE: word; 
ch: char; 
begin 
Ntr:=0; 

Dac3V:=DAC3VthStart; 
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ExposureTime:~0; 

StarSearch. StNfound:=0; 

CLearlandSandSR_PCSG(2); 

repeat 

Np : =StoreFast Sea r ch ( Exposu reT i ne) ; 

<$lfNDef REMOTE > 

ShowFastSearch(Np); 

■CSEndlf > 
inc(Ntr); 
if Np>50 then 
begin 

if Ntr<5 then inc(DAC3V/ 50) else inc(DAC3V,100); 

if Ntr>10 then LedTine1:=0; 

if Ntr>2 then CLearlandSandSR_PCSG(2); 

end; 

until (Ntr>15) or (Np<50); 

if (Ntr>15) then SetIntBuffOfsTh:=false else SetIntBuffOfsTh:=true; 
if (Ntr=1) then 
begin 

ThS:=DAC3VthStart; 

LedTi mel Srchset : =LedTi «e1 ; 
end; 

if (Ntr>=2) then 
begin 

if Np>10 then ThS:»DAC3V+200 else ThS:=DAC3V+100; 
end; 

Exposure! i me : =ExpTS rchMaxO; 

0ac3V:=DAC3VthStart; 

ClearIandSandSR_PCSG(2); 

Ntr:=0; 

repeat 

Np:=StoreFastSearch(ExposureTioe); 

Nl:=StpAtPointsC0,0]; 

{SIfNDef REMOTE > 

ShowFastSearch(Np); 

{SEndlf > 
inc(Ntr); 

if (Np<=200) or (NK=20) then 
begin 

if DAC3V>50 then dec(DAC3V^ 50); 
if Ntr>8 then LedTiBe1:=2ALedTime1; 
end; 

until (Ntr>10) or (Np>200) or (Nl>20); 
if (Ntr>=2) then ThE:=DAC3V else The:=DAC3VthStart; 
if (ThE<ThS) and (Ntr>=2) then 
begin 

DAC3VthSet ; =round (ThE+ (ThS-ThE)*0 . 7) 
end 

else DAC3VthSet:=ThS; 

ExposureTime:=0; 

Clear IandSandSR_PCSG (5 ) ; 

0ac3V : =Dac3VthSet; 

{ 

Np:=StoreFastSearch(ExposureTine); 

ShowFastSearch(Np); 

delaydOOO); 

> 

C lear landSandSR_PCSG(2) ; 
end; 
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function StSearch(Nstar:word): word; 
var 

Np: word; 
ch: char; 
i: word; 

UpLevel: boolean; 

ExpUp : boolean; 

InitialCLear : boolean; 

Ntr : word; 

St Found : word; 

St Founds: word; 

StFoundBB: word; 

StFoundBBB: word; 

StFoundBBBB: word; 

ET : word; 

ETB : word; 

ETBB : word; 

ETBBB : word; 

ETBBBB: word; 
begin 

UpLevel := true; 

ExpUp := true; 

InitialClear := true; 

Ntr := 0; 

StFound 0; 

St Founds := 0; 

StFoundBB := 0; 

StFoundBBB:^ 0; 

StFoundBBBB:= 0; 

ET := 0; 

ETB := 0; 

ETBB := 0; 

ETBBB := 0; 

ETBBBB := 0; 

LedT i me1 : =LedT i me1 Sr ch; 

Set IntBuf f Of sth; 

StSearch:=0; 

ExposureTime:=ExpTsrchStart; 
for i:=0 to NofStmax do 
begin 

StarSearch. StSearchDACi ] . ExpF :=0; 
StarSearch.StSearchOACi].ExpO:=0; 
end; 

ClearlandSandSR_PCSG(2); 

repeat 

begin 

inc(Ntr); 

StFoundBBBB:=StFoundBBB; 

St F oundBBB : -StFoundBB; 

St FoundBB: =StFoundB; 

St Founds : =St Found; 

EtBBBB:==EtBBB; 

EtBBB:=EtBB; 

EtBS:=EtB; 

EtB:=Et; 

-CGenSynch;> 

Np : -StoreFastSear ch ( ExpoaureTi ae) ; 

C lear landSandSR_PCSG(1 > ; 
if (Np>=4) and (StpAtPointsC0,0]>1) then 
begin 
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St Found :=StLook; 

CLearIandSandSR_PCSG(1); 

end 

else 

begin 

Starsearch . StNf ound : =0; 
end; 

if StFound=Nstar then Et:=ExposureTine; 

{SIfNDef REMOTE > 

ShowFastSearch(Np); 
tSEndlf > 

C LearlandSandSR_PCSG (1 ) ; 
if Ntr>=2 then 
begin 

Ini tialC Lear: =false; 
end; 

if Np<5 then ExpUp:=true; 
if Np>=9999 then ExpUp:~false; 
if not InitialCLear and (Np<5) and 

( Exposure? i ne>=ExposureT i neMax*0 . 75) then 
begin 

SetIntBuffOfsTh; 

end; 

if not InitialCLear and (Np>=9999) and (ExposureTiffle<ExpTSrchHinO) then 
begin 

Set IntBuf f Of sTh; 
end; 

if ExposureTiflie<=1 then ExpUp:=true; 

if ExposureTime>=ExposureTimeNax then ExpUp:=faLse; 
if not InitialCLear then 
begin 

if ExpUp then Exposu reTi me := round (ExposureTioe*1. 5+1); 
if not ExpUp then ExposureTime:=trunc<ExposureTime*0.5); 
end; 

-Cif KeyPressed then ch:=ReadKey;> 
end; 

until (ch=#27) or (StFound£B»=Nstar) or ( (StFound>0) and <Ntr>2) ); 
{if (StFound=StFoundB) then> 

ExposureTiae:=Et {B> {else ExposureTine:=EtB div 2;> ; 

St Sear ch : -Stf ound ; 

{halt;> 

end; 


Begin 

End. 
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Unit StAuxOI; {StAuxOI . pas> 


■CControL auxilary devices coolers, housekiping «ultiplexers> 
■C DAC multiplexer, power savig switches > 

interface 

uses 

StdefOl; 

procedure LoadDAC12(V:word; DACrbyte); 

procedure LoadDAC(V:word; DAC: byte); 

procedure Anal_ON; 

procedure Anal_OFF; 

procedure SetHux2_3_0Ch(n:byte); 

procedure LoadDtoA(N:byte); 

procedure SwichDtoAHux(N:byte); 

procedure Tepjp_OFF; 

procedure Tefflp_0N; 

procedure PCooler_ON; 

procedure PCooler_OFF; 

procedure VoltMonitlvar Volt: TVoltages); 

implementation 

uses 

StAQOI, StPCSGOI; 


const 

UaitForDACstab = 25; 

UaitForMUXstab - 75; 

procedure LoadDtoA(N:byte); 
var 

DtoA:byte; 

begin 

£ 

PortCAuxOr]:= DtoAl_L or (N shl DACadrOfs) or Deselect; 
PortCAuxDr]|:= (N shl DAcadrOfs) or Deselect or KuxEnI; 

> 

PortCAuxDrD:= DtoAl_L or (N and 7) or Deselect; 
PortCAuxDr3:= (N and 7) or Deselect or HuxEnI; 
end; 

procedure SwichDtoAhux(N:byte}; 
var 

DtoA:byte; 

begin 

PortCAuxDr]:= (N and 7) or Deselect or HuxEnI; 
end; 

function BitTestW(U:word; Bit: byte): boo lean; 
begin 

BitTestU := ( (M shr Bit) and 1 ) = 1; 

end; 

procedure LoadDACl2(V:word; DAC:byte); 
var 
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i:byte; 
j :word; 
k:byte; 
begin 

for i:=11 downto 0 do 
begin 

if not BitTestUCV, i) then 
begin 

PortCAuxDr]:=DeseLect or SDin; 

PortCAuxDr3:=Deselect or ScLk or SDin; 

Port CAuxDr 3 : =Dese Lect; 
end 
else 
begin 

PortCAuxDrl :=DeseLect; 

PortCAuxDr]:-Deselect or ScLk; 

PortCAuxDr3:=Deselect; 
end; <else> 
end; 

Port CAuxDr] :=Deselect; 

LoadDtoA(DAC); 

end; 

procedure LoadDAC(V:word; DAC:byte); assembler; 

ASH 

cLi 

mov bx^ V 

mov cx, 12 

nov dx/ AuxDr 

mov al/ Deselect or SDin 

mov ah. Deselect or ScLk or SDin 

mov si, ax 

mov ah. Deselect 

mov al. Deselect or ScLk 

mov di , ax 

out dx, a I 

{. 

shl bx, 16-12 

> 

shl bx, 1 
shl bx, 1 
shl bx, 1 
shl bx, 1 
ai: 

shl bx,1 
jc 32 
mov ax, di 
out dx, a I 
xchg a I, ah 
jmp 33 
32: 

mov ax, si 
out dx, al 
xchg al, ah 
out dx, al 
mov ax, di 
xchg al, ah 
33: 

out dx, al 
Loop 31 

Um or disclosure of these SBIR data is suta^ ^ restriction on the title page of this report. 



90V 

bl. 

DAC 




CshL 

bL, 

, DACadrOfs> 



90V 

bh. 

DtoAI^L 




90V 

ah/ 

Deselect 




or 

ah/ 

bl 

{ ah := Deselect or 

DAC 

> 

90V 

al/ 

ah 




or 

al/ 

bh 

£ al := Deselect or 

DAC or 

DtoA1_L > 

out 

dX/ 

al 

i Load DAC/ select i 

channel 

do NOT enable 

90V 

aL/ 

ah 

■C al := Deselect or 

DAC 

> 

out 

dX/ 

al 

-C select channel 



90V 

CX/ 

UaitForOACstab 



SA: 






Loop 

34 





or 

aL/ 

HuxEnI 




out 

dX/ 

al 




90V 

CX, 

UaitForNUXstab 



35: 






loop 

35 





sti 







end; 


> 

> 


procedure SetMux2_3_0Ch(n:byte); 
begin 

PortCAux0r3:=(PortCAuxdr] and not DACaddrEnHask) or (n and DACaddrHask); 
if n<8 then 

PortCLedOr]:=(PbrtCLedDr] and not Mux2_3EnMask) or MuxEn2 
else 

PortCLedDr3:=(Port[LedDr] and not Mux2_3EnHask) or huxEn3; 
PortCAnaLDr]:=(PortCAnaLDr] and not MuxOaddrMask) or MuxEnO or HuxOChHouse; 
end; 


procedure Temp_0N; 
begin 

PortCAnaLDr]:=PortCAnalDr] or Temp_En; 
end; 

procedure Temp_OFF; 
begin 

PortCAnaLDr3:=PortCAnaLDr3 and not Temp_En; 
end; 

procedure PCooLer_ON; 
begin 

PortCLedDr3:=PortCLedDr3 or Ext0ut2; 
end; 

procedure PCooler_OFF; 
begin 

PortCLedDr]:=PortELedOr] and not Ext0ut2; 
end; 

procedure Anal_0N; 
begin 

PortCAuxDr3:=Deselect or AnaL_EN; 
PortEAnalDr3:=NuxEnO or HuxOChlntBuffOut; 
delay(2); 

LoadDAC(DAC3V,3); 

delay(l); 

LoadDAC(0AClV,1); 

end; 
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procedure AnaL_OFF; 
begin 

PortCAuxDr]:=0; 

end; 

procedure VoLtMonitCvar Volt: TVoLtages); 
var 

1 : byte; 
begin 
AnaL_ON; 

Temp__ON; 

<GenSynch;> 
for i:=0 to 15 do 
begin 

SetMux2_3_0Ch ( i ) ; 
delayd); 

VoltCi3:= 6etADCwait_PCSG; 
end; 

for i:=16 to 23 do 
begin 

SetNuxOCh < i -1 6) ; 
delayd); 

VoltlIi]:= GetAOCwait_PCSG; 
end; 
end; 

Begin 

End. 
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unit Streni; 


{ Used for serial coHaunication - interface to CCD. ASH kernel > 

interface 

{SlfDef REHOTE> 

function PutCharlch: char): boo lean; 
function PutCharUCch: char): boo lean; 
function PutStr(strg:string):boolean; 
function PutStrUlstrg: string) : boolean; 
function 6etChar:char; 
function 6etCharU:char; 
function GetBytesU (n : byte) : st r i ng; 
function GetToRetW: string; 

■C$EndIf> 


inplenentation 

uses 

StDefOl, DOS; 

procedure HChdel; 
var 

j : longlnt; 
begin 

for j:=0 to 10000 do 
begin 
end; 
end; 

{SlfDef REM0TE> 

function PutCharCch: char):booLean; 
var 

Reg: Registers; 
begin 

Reg.al:=byte(ch); 

Reg.ah:=$FF; 

lntr(S11,Reg); 

PutChar:=Reg.ah=0; 

{HCHdel;> 

end; 

function PutCharUCch: char): boolean; 
var 

Reg: Registers; 
begin 

Reg.al:=byte(ch); 

Reg.ah:=$0; 

lntr($11,Reg); 

PutCharU:=Reg. ah=0; 

{HChdel; > 
end; 

function PutStr(strg:string):boolean; 
var 
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Reg: Registers; 
n/ i : byte; 

OK: boolean; 
begin 
OK:=false; 
n : =byte(strgCOD ) ; 
for i:=1 to n do 
begin 

PutCharlstrgCi]); 

end; 

PutStr:=true; 

end; 

function PutStrW(strg:string):booLean; 
var 

Reg: Registers; 
n, i: byte; 

OK: boolean; 
begin 
OK: -false; 
n:=byte(strgC03); 
for i:=1 to n do 
begin 

PutCharW(strgCiJ); 

end; 

PutStrU:=true; 

end; 

function GetChar:char; 
var 

Reg: Registers; 
begin 

lntr($10,reg>; 

if Reg.ah=0 then GetChar:=char(Reg.al> 
else GetChar:=#0; 

end; 

function GetCharU:char; 
var 

Reg: Registers; 
begin 
repeat 
begin 

Intr($10,Reg); 

getCharU:=char(Reg.al); 

end; 

until Reg.ah=0; 
end; 

function GetBy tesU ( n : byte) : string; 
var 

Reg: Registers; 

St:string; 

nnibyte; 

begin 

St:***; 

nn:=0; 

repeat 

begin 

St:=St+GetCharU; 
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inc(nn); 

end; 

until nn>=n; 

GetBytesVC-St; 

end; 

function GetToRetU: string; 
var 

Reg: Registers; 

Stistring; 
nn:byte; 
ch: char; 
begin 
St;*' '; 
nn:*0; 
repeat 
begin 

Ch:*GetCharU; 

St:*St+Ch; 

inc(nn); 

end; 

until (Ch=#13) or (nn>=255); 
GetToRetU:*St; 
end; 

<$EndIf> 

BEGIN 

END. 
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Turbo Pascal Runtiae Library Version 6.0 
Main aoduLe 

Copyright (C) 1988, 89 Borland International 
Modifications Copyright <C) 1989 Paradign Systems 

This module must be inserted into TURBO. TPL using the 
Turbo Pascal 6.0 run-time library source kit. 

Modified by M. Chmielowski to operate with TP 6.0 
Tested on remote system 22ed Sep. 1992 
Replace MAIN. ASM in c:\Tp\RTL\SYS 
Delete *.0BJ in \SYS and recompile 
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It 

k 

* 
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AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAt * * * 


TITLE MAIN 
INCLUDE SE.ASH 
DATA SEGMENT WORD PUBLIC 
; Externals 

EXTRN OvrHeapSize: WORD, OvrHeapOrg: WORD, OvrHeapPtr: WORD 

EXTRN OvrHeapEnd:WORD,OvrLoadList:WORD,HeapOrg: DWORD 
EXTRN HeapPt r : DWORD, HeapEnd : DWORD , F reeLi st : DWORD 

EXTRN HeapEr ror : DWORD, Exi t Proc : DWORD, Exi t Code: WORD, 

EXTRN Error Addr : DWORD, Prefi xSeg : WORD, InOutRes : WORD 

EXTRN Input : BYTE, Output : BYTE, SaveIntOO : DWORD 

DATA ENDS 

CODE SEGMENT BYTE PUBLIC 

ASSUME CS:C0DE, DS:DATA 
; Externals 

EXTRN AssignText:NEAR, ResetText:NEAR, RewriteText:NEAR 
EXTRN CloseText:NEAR 

; Publics 

PUBLIC InitTurbo, HaltTurbo, HaltError, Printstring 
PUBLIC Terminate 

/ 

; Initialize the runtime library. First instruction in any program 

; is a call to this routine. 

/ 

InitTurbo: 


MOV 

DX, 

SEG DATA 

; Initialize OS 

MOV 

DS, 

DX 


XOR 

BP, 

BP 

; End of stack frame chain 
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NOV 

AX, SP 

; Coopute first free segment 

ADO 

AX, 4+15 

; address in AX 

NOV 

CL, 4 


SHR 

AX, CL 


NOV 

DX, SS 


ADO 

AX, DX 


NOV 

HeapOrg.seg,AX 

;Initialize heap manager 

NOV 

HeapPtr.seg,AX 

;variables 

NOV 

FreeList.seg,AX 


NOV 

DX,ES:1000h 

; pspHeoTop 

NOV 

HeapEnd.seg,OX 


NOV 

HeapError.ofs,OFFSET CS: 

HeapFai lure 

NOV 

HeapError.seg,CS 


PUSH 

DS 

; Install interrupt handlers 

PUSH 

CS 


POP 

DS 


NOV 

DX, OFFSET IntOOHandler 


xor 

bx, bx 


aov 

es, bx 


BOV 

estCbxU, dx 


BOV 

es:Cbx+21, ds > 


pop 

ds 

; Restore DS 

RETF 


; Back to Bain program 


; Defalt heap error handler. Return 0 to indicate run-tiae error. 

HeapFailure: 

XOR AX^AX 

RETF 2 


; Divide by zero interrupt handler. Control arrives here upon 
; executing a DIV or lOIV instruction with a zero divisor. 

/ 

IntOOHandler: 

NOV AX, 200 


; RunError standard procedure 


HaltError: 


POP 

CX 

POP 

BX 

JNP 

SHORT Terminate 

/ 

; Halt standard 

procedure 

/ 

HaltTurbo: 
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XOR 

XOR 


CX, CX 
BX, BX 


; Terainate progran and restart the application 


; In AX * Exit code 

; BX:CX * Error address (or NIL) 

Terminate: 

; jap InitTurbo 


This code is for use with TDREH 

xor bX/ bx 

aov eS/ bx 

pushf 

push bx 

push bx 

jap dword ptr es:[000ch] 


SiapLy restart 


Make the interrupt vector table addressable 


Push the PSW 

IP 

CS 

Call the break handler 


Printstring: 


aai: MOV 

AL, CS:CBX: 

OR 

AL, AL 

JE 

332 

CALL 

PrintChar 

INC 

BX 

JHP 

SHORT 331 

aa2: RET 

; Print byte 

in decimal 

; In AL = 

Value 

PrintDec: 

MOV 

CL, 100 

CALL 

331 

MOV 

CL, 10 

CALL 

331 

JMP 

SHORT 332 

aai : XOR 

AH, AH 

DIV 

CL 

332: ADO 

AL, '0* 

PUSH 

AX 

CALL 

PrintChar 

POP 

AX 

MOV 

AL, AH 

RET 


; Print word in hex 
; In AX = Value 

PrintHex: 

PUSH AX 
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NOV 

AL, 

AH 


CALL 

aai 



POP 

AX 


aai: 

PUSH 

AX 



NOV 

CL, 

4 


SHR 

AL, 

CL 


CALL 

aa2 



POP 

AX 



AND 

AL, 

OFH 

aa2: 

ADD 

AL, 

•O' 


CNP 

AL, 

•O' +10 


JB 

PrintChar 


ADD 

AL, 

'A'-'O 

; Print 

character 



; In AL « Character 

Print Char: 

RET 

; Eapty string 
Zerostring OB 0 

CODE ENDS 

END 
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CCD ROM software 
T. Nolam / M. Chmielowski 
Revision Histor 


5/11/92 vl.OO Preliminary Release 

8/1/92 vl.Ol Added program loader, reorganized EEPROM 

8/19/92 vl.02 Program control commands, startup opts. 

9/30/92 v2.00 Modyfied 

Introduction 


The ROM software is in two parts: the ROM Monitor and the Turbo 
Debugger Remote Kernel . These two parts are built from separate 
sources, compiled and linked into separate binary images, and 
placed at known locations in the EEPROM memory on the CCD CPU 
board. The memory map is as follows: 

FOOOO - FDFFF Unused 

FEOOO - FF2FF Turbo Debugger Remote Kernel 

FF300 r FFFEF ROM Monitor 

FFFFO - FFFF5 BOOT 

FFFF6 - FFFF7 KERNEL Protection TEST point 


The ROM Monitor Program 


The ROM Monitor is a custom-written startup and diagnostic 
program. It gains control when the CPU is reset or when the 
power is applied. It runs the following tests on the CPU and 
peripheral devices : 

0. RAM pattern test - 55aa written to all locations and 
read back 

1. RAM pattern test - aa55 written and read back 

2. Byte access test - single bytes written separately to 
high and low order bytes of RAM 

3. Address test - each RAM location written with its own 
address COMPIMENT and read back 

4. 8259 Interrupt controller test - addressability and 
response checked 

5. 8255 PPI test - addressability and response checked 

6. 8254 PIT test - set up three counters and verify that 
they are counting 

7. 8251 UART test - programmed for 9600 baud, 8 data 
bits, no parity, 1 stop bit (requires baud rate 
generator output from 8254). Character transmitted 
and error flags checked 

8. EEPROM access test - data read inver writte 
then restore to: 

a) $FFFF6 - hardware protected Kernel - should be *DENIED 

b) $F0000 - EEPROMl test 
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c) $D0000 - EEPR0M2 test 

These tests take about 6 seconds with a 4MHz clock. The ROM 
monitor then prints the status of the tests . Output is done 
through the serial port, so if a terminal (or PC terminal 
emulator) is connected the results will be visible. The ROM 
monitor enters a command loop, in which it reads and processes 
commands from the terminal. 


The ROM monitor understands a number of commands . 
The commands and their syntax are as follows: 


Wssss :oooo 
G[ ssss :oooo] 
P 


Dnnnn [mm] 

Lnnnn mm 

(binary data follows) 
R 
S 
9 
2 
4 
1 


write startup address ssssroooo 
go to startup address 
print diagnostics 

dump from segment nnnn mm segments [ 8 ] 
load into segment nnnn, mm bytes 

reset from location FOOOiFFFO 

'reset' from location D000:FFF0 

baud rate 9600 Hz 

baud rate 19200 Hz 

baud rate 38400 Hz 

baud rate 115k Hz 


All numbers are in hex. 


The 'W' command is used to place the address (segment and 
offset) of the user program entry point into EEPROM. This 
address is used by the ROM monitor to transfer directly to the 
user program when the board is not connected to -a debug monitor. 
The actual ROM address where this 2 -word value is stored is 
FDFFCh (offset first, then segment, Lo byte then Hi byte). 

This is the highes 4 bytes just before hardware protected area, 
e.g. W0102:0304 gives: 

$FDFFC = $04 
$FDFFD = $03 
$FDFFE = $02 
$FDFFF ^ $01 

The 'G' command transfers control to a user-specified entry 
point, or to the EEPROM transfer address written by the 'W' 
command if no address is specified. The 'G' command can be used 
with the program loader, by loading the program and then 
transferring to its entry point. 

The 'P' command prints the diagnostics as though the ROM monitor 
had just started up. 

The 'D' command is the data dumper. 

The 'L' command is the program loader interface. 

The 'L' command is intended for use by the “pload" program 
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loader. After the coiranand is typed, binary data is accepted by 
the serial port and put into meitiory at the specified segment 
address. A maximum of 128 (8 Oh) bytes may be loaded at a time. 
This is due to the EEPROM write limitation. Larger quantities of 
data are loaded in separate blocks. All addresses given to these 
commands and displayed by the dump command are segment 
addresses, also known as paragraph addresses. To convert a 
segment address to a full 20-bit address, multiply by 16 (lOh). 
For example, the command "D200" causes memory starting at 
segment 200h (absolute address 2000h) to be displayed. The 
command "LfOOO 80" causes the following 80 bytes of binary data 
to be loaded into EEPROM at absolute address FOOOOh, which is 
the start of EEPROM. Note that in the command syntax there must 
not be a space between the command character and the segment 
address. The program loader checks to make sure that no data is 
ever written to addresses FE000-FFFF5 (the kernel and tdrem 
area). 

Whil in the command loop waiting for a user command, the ROM 
monitor checks for a NUL character on the input port. This is 
the handshake character issued by the Turbo Debugger in remote 
mode. If this Character is received, the ROM monitor transfers 
control to the Turbo Debugger Remote Kernel. 

The Turbo Debugger Remote Kernel 


The remote debugging kernel is a semi-custom software module 
supplied by Paradigm Systems and modified for the CCD board 
installation. It communicates with the Turbo Debugger supplied 
with Borland C and Pascal languages to allow a program to be 
debugged remotely on the target CPU board. For this operation, a 
PC is connected through its COM port to the CPU board. The Turbo 
Debugger is brought up, using a command line like 

td -r -rsl <progname> 

where “-r“ is the remote debugging flag, “-rsl" specifies 9600 
baud, and "<progname>" is the name of a program to be loaded and 
executed on the remote CPU. The program is loaded from the PC 
disk, transferred to the CPU by the debugger, and if all goes 
well the debugger shows the main program screen just as if the 
program were being debugged locally. All of the normal Turbo 
Debugger features are available (but it is kind of slow) . 

The program must have been built specially for the remote CPU. 
The requirements are as follows: 

1. Link in a non-standard startup assembly language file 
in place of the startup code in the system library. 
Create an exe file (but name it .ROM instead of 
.EXE), and a segment map file (.MAP). 

2. Run the Paradigm Systems "locate" program to create 
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an absolute image from the .ROM output (this file is 
now named .EXE). In the locate directives, specify 
RAM and simulated ROM within the RAM area of the CPU 
board. The loader can not load into EEPROM, nor can 
breakpoints be set in the debugging process on code 
in EEPOM. Thus the program code and data must fit 
into 64KB, the size of RAM on the CPU board. 

3. Don't use any MS-DOS or ROM-BIOS calls, or call any 
system or library function that uses any of these. 


Building a Program for Loading into EEPROM 


If a program is to be loaded into EEPROM, it must be relocated 
in a different way than if it is to be loaded under control of 
TDREM. In the former case, the program's "ROM” is actually 
within the target board's RAM area. This is because TD^M wants 
to load and run a program just as if it were working with MSDOS. 
TDREM loads the program code and data into RAM, where it can set 
and clear breakpoints at will. In the latter case, the program's 
ROM is located in EEPROM, where it belongs. The locate 
directives are used to make a binary image, with the code 
segment located at FOOO, and the data segment located at 100 
(which is above any kernel RAM) . 

The program's initialized data is going to be a bit of a 
problem. It must reside originally in EEPROM, then be copied to 
RAM by the startup code. This means that a different Pascal 
startup routine must be used for EEPROM code than was used with 
TDREM. The EEPROM startup routine copies initialized data to 
RAM, then transfers control to the Pascal main program in 
EEPROM. This is the normal approach for ROM-based programming. 

After the program is loaded into EEPROM, you can write its 
entry point into EEPROM so the ROM monitor can transfer directly 
to the program. This provides autonomous startup of the board, 
without user intervention. The next section describes the 
startup operations . 

Startup Control 


The ROM monitor goes through the following sequence in deciding 
whether to give control to the user program. 

1. If a terminal is connected to the RS-232 port, and drives the 
board's DSR input (pin 20 on the 25-pin connector), the program 
invokes the ROM monitor. Note that pin 20 is the normal DTR 
output pin from the computer. The cable has a null-modem wiring 
to bring this into the DSR input. 

2. If the terminal is connected but does not drive DTR, the ROM 
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monitor waits approximately one second after it completes its 
memory diagnostics. If it receives an 'Esc' character on the 
serial port during this time, the program invokes the ROM 
monitor. The program is tolerant of extra 'Esc' chars, so in 
practice, it is fairly easy to tap this key until the ROM 
monitor messages come up. 

3. If neither of these conditions is in effect, i.e. the DTR is 
inactive and the serial port does not receive an 'Esc' char, 
then the ROM monitor does not print its diagnostics, but instead 
transfers directly to the user program entry point, which is 
stored in the EEPROM at address FFFF6h. 

ROM Monitor Routines Available to User Programs 


If TDREM is not used, the kernel routines for serial port I/O 
can be used by the Pascal program. The descriptions are as 
follows; 

INT lOh - Get character 

Returns character in al, zero in ah. 

Returns ax = FFFF if no character present. 

INT llh - Put character 

Call with ASCII char in al, return flag in ah. ^ 
Returns; if ah is zero, waits until character is 
successfully queued before returning with ah still 
zero. If ah is non-zero, returns immediately with ah 
zero if the character was queued, ah non-zero if the 
queue was full and the operation needs to be 
retried. 

The port I/O software interrupts use queued input and output. 

The queues are 256 characters deep. Arriving characters will be 
buffered until 256 have been received; additional characters 
will be lost. Calls to INT lOh will pick up characters from the 
queue and make room for new incoming characters. When the queue 
is empty, the function returns immediately with an empty 
indication . 

Likewise, up to 256 characters can be placed in the output queue 
by int llh. However, if the output queue is full when INT llh is 
called, it will not return to the caller until space is 
available and the character is queued successfully. 

The External Program Loader 


An MS-DOS utility program PPLOAD.EXE is provided in this release. 
Source in PPLoad.pas. 

Its purpose is to transfer a binary image in an MS-DOS disk file 
over the serial port into the EEPROM under control of the ROM 
monitor. The syntax is: 
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pload binfile seg 

where "binfile" is the name of the binary data file to be 
loaded/ "seg" is the segment address where the program is to be 
loaded on the target CPU board using port COM 2. Typically you will 
use a segment address of FOOO/ which is the start of EEPROM. 

To use the prograon loader, first create the binary image. PLOAD 
does not understand intel hex (which TDREM uses). Instead, use 
the "hexfile binary" directive to Paradigm Locate to create a 
binary file in the exact image of EEPROM. The file size must be 
56K or smaller, since that's all the room there is in EEPROM. 

Next, connect the CPU board to the PC's serial port, start up 
the terminal emulator of your choice, and boot up the ROM 
monitor by applying power or resetting the board. You will see 
the diagnostics appear on the screen. Next, exit the terminal 
emulator and run PLOAD with the appropriate command line 
arguments. As a final step, you may want to bring up the 
terminal emulator again and verify that the program has loaded 
correctly by dumping some part of memory. 

1 

The program loader is protected from writing to kernel EEPROM. 
However it is not protected from writing to kernel RAM (segment 
< 100). Doing so will cause the ROM monitor to crash. Various 
error messages are possible from the program loader. The best 
way to figure out what they mean is to consult the source code 
files PPLOAD.pas and CCD. ASM. 

Unsolved Problems 

Support for queued communication (INT lOh and INT llh) 
do NOT operate correctly for more then 300 characters. 


•M»0 
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Loading Boot juap. Boot progra*/ and TDreaote Kernel 

Load each file separately into EEPROH filled with $FF 

At SFOFFC write start address of user prograa. 
of set then segaent 

bytes are placed in order Lo byte first then Hi byte 
Coaaand: W0102:0304 gives 
in Lo S6FFE = $04 
S6FFF = $02 
in Hi $6FFE = $03 
$6FFF = $01 

For soft RESET store seg: $FFFF, ofs: $0000 
in Lo $6FFE = $00 
$6FFF = $FF 
in HI $6FFE = $00 
$6FFF = $FF 

For start address equal juap to reset enter OOFF at 6FFC 
in each EEPROH 

Check Suns are without start address 

Loading CCD.EXE inage into EEPROH 
into aenory $FF300 

CCD.HJtt) - for EEPR0M1 Lo (bits 0-7) 

CCD.HXI - for EEPR0H1 Hi (bits 8-15) 


f i le ofset $0 

file length $A38 

device ofset $7980 

Check Sun: 

EEPROH Lo $8FF6 

EEPROH Hi $7C1B 

Then load TDREH.HXO and TOREH.HXI 
into aenory $FE0(X) 

file ofset $0 

file length $12FF 

devi ce ofset S7000 

Check Sun for both CCD and TDREH: 
EEPROH Lo $0301 

EEPROH Hi $EE48 

with reset address 

EEPROH Lo $0202 

EEPROH Hi $ED49 

Saved as KER4L.HEX and KER4H.HEX 
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// Define the target system neaory sap 

Memory configuration - physical 
SOOOOO - SOFFFF 64k bytes of RAM1 

S10000 - S1FFFF 64k reserved for GHOST image of 64k RAMI 
S20000 - S2FFFF 64k bytes of RAH2 

S3CXXX) - S3FFFF 64k reserved for GHOST image of 64k RAM2 
S40000 - SBFFFF reserved - NO physical MEN 
SCOOOO - SCFFFF 64k reserved for GHOST image of 64k EEPR0M2 
SOOOOO - SDFFFF 64k bytes of EEPR0M2 

SEOOOO - SEFFFF 64k reserved for GHOST image of 64k EEPR0M1 
SFOOOO - SFFFFF 64k bytes of EEPR0M1 

Memory configuration - software 

$00000 - SOOFFF 4k RAH kernel 
$01000 - SOFFFF 60k RAH to use 
$10000 - S1FFFF 64k DO NOT use 
$20000 - S2FFFF 64k RAH to use 
$30000 - SDFFFF DO NOT use 
SCOOOO - SCFFFF 64k EEPROH2 
SEOOOO - SEFFFF 64k DO NOT use 
SFOOOO - SFDFFF 56k EEPR0H1 to use 

SFEOOO - SFF2FF 7+k EEPROHl reserved for T Debugger kernel - may be used 

in final version 

SFF300 - SFFFFF 1-k EEPROM reserved for ROM kernel 


map 

0x00000 

to 

OxOOfff 

as 

rdonly 

// 

map 

0x01000 

to 

OxOFFFF 

as 

rdwr 

// 

map 

0x10000 

to 

OxIFFFF 

as 

reserved 

// 

map 

0x20000 

to 

0x2FFFF 

as 

rdwr 

// 

map 

0x300X 

to 

0x3FFFF 

as 

reserved 

// 

map 

0x40000 

to 

OxBFFFF 

as 

reserved 

// 

map 

OxCOOOO 

to 

OxCFFFF 

as 

reserved 

// 

map 

OxDOOOO 

to 

OxDFFFF 

as 

rdonly 

// 

map 

OxEOOOO 

to 

OxEFFFF 

as 

reserved 

// 

map 

OxFOOOO 

to 

OxFDFFF 

as 

rdonly 

// 

map 

OxFEOOO 

to 

0xFF2FF 

as 

rdonly 

// 

map 

0XFF300 

to 

OxFFFFF 

as 

rdonly 

// 


4k 


cputype 18086 


displ^ all 

//absfite axe86 f i Lename=stStst.exe format=TD20 // File for TD 


hexfile binary f i lename=st5Dseg.bin 

hexfile binary filenamesstSFseg.bin 

listfile segments regions 

initcode stack 

dup DATA DATAR 

class ??L0CATE = OXFOOO 

class DATA = 0X2000 

order ??L0CATE CODE 

class STACK « 0X100 

order DATA HEAP 

class DATAR = OXDOOO 

output CODE ??L0CATE DATAR 


offset=0xD0000 size=64 
offset=0xF0000 size=64 

// Output a segment map 
// TP requires stack initialization 

// Assign code address 
// Assign data address 
// Place in order into ROHI 


// Assign data in ROM address 
// Classes in the output file 
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STAR TRACKER BOARD 


I/O and Interrupts Map 


I/O Ports 




10x0 

r/w 


stop the elk 

11x0 

r/w 


8259 Interrupt controller port 

11x2 

r/w 


8259 Interrupt controller port 

12x0 

r/w 


8255 Peripheral Port Interface A 

12x2 

r/w 


8255 Peripheral Port Interface B 

12x4 

r/w 


8255 Peripheral Port Interface C 

12x6 

r/w 


8255 Peripheral Port Interface W (control) 

13x0 

r/w 


8251 USART controller port 

13x2 

r/w 


8251 USART controller port 

14xx 

r 


a/d inputs from ced board 

15x0 

■r/w 


j8254 Programmable Timer controller port 

15x2 

r/w 


8254 Programmable Timer controller port 

15x4 

r/w 


8254 Programmable Timer controller port 

15x6 

r/w 


8254 Programmable Timer controller port 

16xx 

r/w 


Watchdog Timer Reset Port and EEPROM write 
(one byte) enable 




write OfHh to this port to enable writes to eerpom 
write any other word to disable' writes to eeprom 

17xx 

r/w 


Waveform generator 

InterruDts 



INT 0 

USART 

Data Rdy interrupt 

INT 1 

USART 

Tx Rdy interrupt 

INT 2 

Wavegen 

Interrupt 

INT 3 

Programmable Time Base Interrupt 

INT 4 

Programmable Timer Interrupt 

INT 6 

Wavegen 

Timer Interrupt 
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C:\TOMNEW\PLOAD\MAKEFILE 2/8/93 


# make file for Pload.C 
pload.exe: pload.c 

TCC -I$c : \TC\include Pload 
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C:\TP\RTL\REMBIN\REMT.BAT 2/8/93 


rem Batch program for building executable Star Tracker program 
rem targeted for remote processor. 

call makebat.bat st5.exe 


Use or diflclorare of tlx 
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C:\TP\RTL\REMBIN\MAKEBAT.BAT 2/8/93 


rem Batch program for building ARC Star Tracker program 

rem loading into remote target and for loading assembler 

rem kernel (in two copies) and setting kernel start addres 

rem for automatic execution of Star Tracker program 

del st5tst.exe 

del %1 

make -B %1 

rem td -rp2 -rs3 -1 stStst 

pploadl.exe St5Dseg.bin $D000 

pploadl.exe c:\tomnew\ccdd\ccddseg.bin $DF30 

pploadl.exe St5Fseg.bin $F000 wFOOOiOOOO 

turbo 


V 


Um or diadoraro of theae 
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C:\TP\RTL\REMBIN\MAKEFILE 2/8/93 


# MAKE file for building the ARC Star Tracker program for use with TDREM 

# or for execution from ROM. 

# 


TDREM 


0 


# 0 - ROM build, 1 


TPOPTS == /Tc:\tp\rtl\bin /B # look for TURBO. TPL in remote version 

# use TPC.CFG 


# TPOPTS 

# /DREMS 
TPOPTS = 

!if $ (TDREM) 

TPOPTS = 
LOCOPTS = 

CFG 


= $ ( TPOPTS ) /DREMOTE 

$(TPOPTS) /$M$4000, $2000, $2000 
== 0 

$( TPOPTS) /DREMS 
-cROM.CFG -Ee 
= rm 


ielse 
TPOPTS 
LOCOPTS 
CFG 
! endif 


$( TPOPTS) /V /DTDREM 
”Aa 

= td 


LOCOPTS 


$( LOCOPTS) 


.pas.exe: 

tpc $*.pas $( TPOPTS) 
locate $ ( LOCOPTS ) $ * . exe 
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C:\TP\RTL\REMCMMT\TPC.CFG 2/11/93 


/* Turbo Pascal config file for cmpilation for REMOT target */ 

/Tc : \tp\rtl\bin 
/DREMOTE 

/GP /B /$N- /$E- /$R+ /$G- /$D+ /$S+ /$V+ /$X+ /$L+ /$A+ 

/Uc ! \tp\rtl\bin; c ; \tp\rtl\bin\tpu 
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WIRING LIST 


Boards List 

CCD Internal Connection List 
External Devices List 
Board to Board Wiring List 
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Wiring List 


TerBinoLoav used in this docuaent 


Boards and external devices are Listed and numbered starting from CCD 


External Devices (ED) 


Board 1 
Board 2 
Board 3 
Board 4 
Board 5 
Board 6 
Board 7 
Host COaputer 


Connector (HC) 


- CCD/Peltie Coolers/Ther«istors/LEOs 

- Amplifiers/Drivers 

- ADC/DAC 

- Power supply 

- PCSG (ProgrammabLe Clocic Signal Generator) 

- CPU 

- Memory 

- RS 422 

- In Test Unit use Serial Coonector and Power Connector 
(see end of this document) 


Notation 


B# - Board number, i.e. B2-JP63C4)- DGND, indicates board 2, JP63, pin 4 marked on 
si Lkscreen as DGND 

JP# or J# - is used to designate a physical location of a wire connection on the 
si Lkscreen and the schematic. 

JP#<#) or J#(#)- is used to designate a wire cluster, where cluster # is marked on the 
si lkscreen and the schematic, number in brackets indicates wire 
position in cluster ( pin 1 is marked with square). 

Signal name - as marked on Board 1 drawings, for remaing boards signal name is given 
only for redundancy. 

Dots e.g. (#a..#b) or (#a) 


(#b) 

means range of wires from t/a to #b. 

N.C. - Not Connected 
Names are not case sensitive 

There is ERRATUM for Board 2, see end of board 2 description. 

Enoineering Unit : 

Boards 1, 2, and 3 and interconnected as stated in this list. Boards 4, 5, 6, and 7 are 
interconnected as stated in this List. Interconnection between the first three boards to 4, 

S, 6, and 7 are replaced by test connecters CONO, C0N1, C0N3 (no C0N2). Subsituted 
connections are defined in the list as TEST UNIT connections. Host Computer connector (HC) is 
replaced by two test connections, serial communication CONS and power supply connector CONP. 
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CCD 


CCD internal connections 

i t ****** ** ******** * ******* ** *** ****** ********* 

CCD signal { CCD pin # | CCD signal | CCD pin U \ 


SUB 

11 

SUB 

12 

CDB 

10 

TDB 

21 

lAG 

3 

lAG 

19 

ABG 

2 

ABG 

20 


Total: 4 wires ( 8 pins ) are connected with wires soldered to CCD pins. 

** * ***** ************************* * ******* ** ** 

CCD Not Connected 

********* * ** * ** ***** ******* **** **** ********** 

CCD signal | CCD pin U \ 

OUT 2 7 

OUT 3 6 

Total: 2 pins are N.C. 

** * ********** * ****** *********** * * * *********** 

CCD - Board 1 

16 wires listed for Board 1 interconnections 
******* ' ****** ' * ** ** ** * * * ** * ** ********* *** * **** 

Total: 22 pins 

4 wires internal connections on CCD 
2 CCD pins are Not Connected 
16 wires to B1 


N.C. 

N.C. 
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External devices 


******** * ***** * ************** ** ** **** * *** * *** 

Peltie Cdblers 

2 wires Listed for Board 1 interconnections 

********* ********* ******** * * ******** ********* 

Theraistors: 

Lens external 
CCD temperature 
Peltie Cooler Hot 

6 wires listed for Board 1 interconnections 
******* * ******** * * ** ************** ' ******** * ** ' 

LED external 

8 wires listed for Board 3 interconnections 
* * **** * ** * * ** *** * * *** * * ********************** 

Total: 16 wires 

10 wires to devices outside (LEDs and Lens thermistor) 

6 to devices inside (Peltie Cooler, CCD and Hot thermistors) 


NOT in TEST UNIT 
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*** ************* ************* ******* ** * ****** 
BOARD 1 

*************************** * ************** * ** 
CCD - Board 1 
( CCD interface section ) 


CCD signal | 

CCD pin # I 

Board 1 signal 

AMP GND 

9 

CCD_AHP_GND 

OUT 1 

8 

CCD_0UT1 

ADB 

5 

CCD_ADB 

SUB 

1 

CCD_SUB1 

SUB 

22 

CCD_SUB2 

SUB 

12 

CCD_SUB3 

TDB 

21 

CCD_T0B 

lAG 

19 

CCD_IAG 

ABG 

2 

CCD_ABG 

SAG1 

4 

CCD_SA61 

SAG2 

17 

CCD_SAG2 

TMG 

18 

CCD_TM6 

TRG 

13 

CCD_TRG 

SRGI 

14 

CCD_SRG1 

SRG2 

15 

CCD_SRG2 

SRG3 

16 

CCD_SRG3 

Total: 16 wires from B1; 
internally on CCD. 

22 pins of CCD - 2 are N.C., 

4 are 


* * * ** **** * * ************** ***** ** * * * * ** *** * * 


Cooler/therai stors 

“ Board 1 


PC (top) 

Red wire (+) 

TE Cooler 1 

PC (bottom) 

Black wire (-) 

TE Cooler 2 


Internal theraistors - Board 1 


Thera. CCD 1 TEMP_CCD 

Thera. CCD 2 TEMP_6ND 

THERM. Cooler Hot 1 TEMP^PCB 

THERM. Cooler Hot 2 TEMP_GND2 

External thermistor - Board 1 

THERM. LENS 1 TEMP_LENS 

THERM. LENS 2 TEMP GND3 


(polarity of theraistors is not specified) 


Total: 8 wires from B1; 2 wires are for external thermistor; 

polarity of PC is specified. 


connected 


NOT in TEST UNIT 
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tA******* * ********* ******* ******************** 


Board 1 - Board 2 - 



Board 1 signal | 

1 Board 2 signal | Conn. # 


TEHP^OUT 

TEMP_OUT 

B2-JP66 

A3 

KUX_EN0_G 

B2-JPS2 

AMPI^OUT 

A«P1_0UT 

B2-JP18(1) 

1NT_BUFF_0FS 

INT_BUFF_OFS 

B2-JP29 

HUX_OUT 

MUX^OUT 

B2-JP17 

Test_Inp1 

Test_Inp1 

B2-JP39 

UnlAG 

UdIAG 

B2-JP26(1) 

UaiABG 

UnABG 

B2-JP26(2) 

U-ABG. 

U-ABG 

B2-JP27 

SRG1C 

SRG1C 

B2-JP24(2) 

SRG2C 

SRG2C 

B2-JP24C3) 

SRG3C 

SRG3C 

B2-JP24(4) 

ABGC 

ABGC 

B2-JP24(1) 

ABGl 

A6Gl_OUt 

B2-JP34(1) 

Total: 14 wires B1 to B2 
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**** ** * ** * * * ** ********************* **** **** * ** 


Board 1 - Board 3 


Board 1 s.ignaL | 

1 Board 3 signal 

1 Conn. U 

PC+1 

PC+I 

B3-JP50(2) 

PcGND 

PcGND 

B3-JP50(1) 

REF+5Vt 

REF+5t_sw 

B3-JP80 

MUX_VM_OUT 

MUX_VH_Out 

B3-JP46 

U+12c 

U+12c 

B3-JP21(5) 

U+12a 

lHl2a 

B3-JP2K4) 

A6ND - 

AGND 

B3-JP2K3) 

U-12a 

U-12a 

B3-JP2K2) 

DGND 

DGND 

B3-4P2K1) 

U+12c0r 

U+12c 

B3-JP43(6) 

U+6Dr 

U+6Dr 

B3-JP43(5) 

U-i-2Dr 

U+2Dr 

B3-JP43(4) 

U-IIDr 

U-1l0r 

B3-JP43<2) 

U+5Dr 

U+5Dr 

B3-JP43(3) 

DDGND 

DDGND 

B3-JP43(1) 

Bias-fM 

Bias+H 

B3-JP44C2) 

Bias-M 

Bias-M 

B3-JP44(1) 

Bias22mort 

Temp_0UT 

B3-JP71 


Total: 18 wires B1 to B3 
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Board 1 ~ Board 4 - 


Board 1 signal { 

I Board 4 signal 

I Conn. # 

TEST UNIT 

/INT_POL ” 

INT_POL_POS 

B4-JK1) 

C0N3(40) 

INT_SAMPLE 

INT_SAHPLE 

B4-JK2) 

C0N3(39) 

INT_RESET 

1NT_RESET 

B4-JK3) 

COM3 (38) 

lAGC 

lAG 

B4-J3K9) 

CON3(32) 

SAG1C 

SA61 

B4-JK11) 

C0N3C30) 

SAG2C 

SAG2 

B4-JK12) 

COM3 (29) 

TNGC 

THG 

B4-JK10) 

C0N3(31 ) 

TRGC 

TR6 

B4-J1C13) 

C0N3(28) 


Total: 8 wires B1 to B4 


Um or disdooaxo ctf theoa 8BIR data la sulqoct to tha rastrietion on tha titla paga of thia report. 



* ** ****** ****** * *********i>*********A** »******* 

Board 1 Board 5 
0 wi res - 

A AA AA** ******* * ** **** ******** ****** * * * * * **** * * 
Board 1 - Board 6 
0 wires 

itkk 1 i 1 ikkkki r kk 1t *k *1 fkkkkkAAkkkkkkk ' kkkkkkk *i f k***1rk 


Board 1 - Board 7 

Board 1 signal 

AO 

A1 

A2 

lAGl 

Total: 4 wires B1 to B7 


I I Boards 7 signal j 

HK2 (HUXADRO) 

HK2 (MUXAR01) 

HK2 (NUXADR2} 

HK2 (lAGl) 


Conn. # 

B7-JP32(1) 

B7-JP32C2) 

B7-JP32(3) 

B7-JP32(4) 


kkk kk kk kk k k k kk k kk kkkkkk k kkkkkk k kk k k kk k kkkkk k kk 


Board 1 - HC 


0 wires 

A»' A *A*** *AAAAA*A* »A A ****»»*An>!***** *AA * * * ***AA *» 


TEST UNIT 

CONI (38) 
C0N1 <18) 
CONI (37) 
C0NK36) 
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* «i***** *i >i»*** * **** ******* *»* *******i***** * 

BOARD 2 

A*AA***AA***»*A* * ****i*** * *********A***** * 

Board 2 - External Devices 
0 wires 

A****** ** * * * * *** * ** ** ***************** ***** 

Board 2 - Board 1 

14 wires listed for Board 1 interconnection 
A* * ********* ** ***- ******* ** ** * ********** * * ******* 

Board 2 - Board 2 internal jumpers 

Board 2 signal | Conn.# | Board 2 signal | Conn. # 

INT_SAHPLE B2-JP87 Grounging B2-JP100 

NANO_Spare_OUT B2-JP98 INT_/RESET B2-JP94 

INT_RESET B2-JP95 AB6Cc2 B2-JP57 

Total: 6 signals are connected with jumpers 
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Board 2 - Board 3 


Board 2 signal | Conn.# | Board 3 signal j Conn. # 


U+12c 

B2-JP63(8)-V+c 

U+12C 

B3-JP75(8) 

AGND 

B2-JP63(7)-AGND 

AGND 

B3-JP75C7) 

U-12C 

B2-JP63(6)-V-c 

U-12C 

B3-JP75(6) 

U+5c 

B2-JP63(5)-Vcc 

U+5c 

B3-JP75(5) 

DGND 

B2-JP63(4)-DGND 

OGND 

B3-JP75(4) 

U+12a 

B2-JP63(3)*V+ 

U+12a 

B3-JP75<3) 

U-i-SDa 

B2-JP63(2)-VccA 

U+5Da 

B3-JP75C2) 

U-12a 

B2-JP63<1)-V- 

U-12a 


DAC_STR_^A 

B2-JP64(3) 

DAC_STR_A 

B3-JP72(3) 

DAC_STR_B 

B2-JP64(2) 

DAC_STR_B 

B3-JP72<2) 

DAC_STR_C 

B2-JP64(1) 

DAC_STR_C 

B3-JP72(1) 

INH_MUX2 

B2-JP76(1) 

INH_NUX2 

B3-JP78<2) 

INH_MUX3 

B2-JP76(2) 

INH_MUX3 

B3-JP78(1) 

INT_BUFF_0FS_H 


INT_BUFF_OFS 



B2-JP67 


B3-JP74(4) 

UmIAG_M 

B2-JP69 

UmIAG_M 

B3-JP74(2) 

UmABG_H 

B2-JP70 

UmABG_H 

B3-JP74C3) 

U-ABG_« 

B2-JP68 

U-ABG_M 

B3-JP74(1) 

REF+5t 

B2-JP25 

REF+5t 

B3-JP79 

TEMP^EN^G 

B2-JP77 

TEMP_EN_G 

B3-JP81 

ANAL_EN 

B2-JP65 

ANAL_EN 

B3-JP73 


Total: 20 wires B2 to B3 


Um or diacloaure of theoe SBIR data ia sulgect to the restriction on the title page of this report. 



TEST UNIT 


*************iU lr *l r ****AiU»* ** ********»******* *** 
Board 2 - Board 4 


Board 2 signal 

1 Conn.# 

j Board 4 signal | 

Conn. # 


SRGiCs 

B2-JP3K4) 

SRG1 

B4-JK5) 

C0N3(36) 

SR62CS 

B2-JP3K3) 

SRG2 

B4-JK6) 

CON3(35) 

SRG3CS 

B2-JP3K2) 

SRG3 

B4-JK7) 

C0N3C34) 

SRGsC 

B2-JP3K1) 

SRGs 

B4-JK14) 

C0N3(27) 

ABGCc 

B2-JP42 

ABGC 

B4~J1(8) 

C0N3133) 

M_/UA1T 

B2>J40(2) 

WAIT 

B4-JK15) 

C0N3(26) 

PCS6_ST0P_G2 

B2-JP20 

STOP 

B4-JK16) 

CON3C25) 

PCS6_ST0P 

B2-J16C16) 

PCSG_STS_spare 

B4-JP3 

C0N3C24) 

AD_CS 

B2-JP33(10) 

AD^CS 

B4-JK4) 

C0N3C37) 

NAND^Spare_A 

B2-4P97 

PCSG_CTR_spare 

B4-JP1 

CON3(23) 

Total; 

10 wires B2 

to B4 




Um or dioelocuro of these 8BIR dote is sulgect to the restriction on the title page of this report. 



A*************************** ******** ************ 


Board 2 ~ Boards S~ 


Board 2 signal | Conn.# | Boards 5 signal | Conn. M 


NAN0_^Spare__B 

B2-JP96 

4/3HHZ 

B5-JP24(4) 

CL0CK_4HHZ 

B2-JP30 

CL0CK_4MHz 

B5-JP24(2) 

/ADCS 

B2-JP41 

/ADCS 

B5-JP24(1) 

ADC_L$6 

B2-J16(1) 

ADO 

B5-JPADIN0 


B2-J16(2) 

ADI 

B5-JPAD1N1 


B2-J16(3) 

AD2 

B5-JPADIN2 


B2-J16(4) 

AD3 

B5-JPADIN3 


B2-J16(5) 

AD4 

BS>JPADIN4 


B2-J16(6) 

ADS 

BS-JPADIN5 


B2-J16(7) 

AD6 

B5-JPADIN6 


B2-J16(8) 

AD7 

B5-JPA0IN7 


B2-J16(9) 

AD8 

B5*JPAD1N8 


B2-J16(10) 

AD9 

B5-JPA0IN9 


B2-J16(11) 

AD10 

B5-JPADIN10 

ADC_MSB 

B2-J16(12) 

AD11 

B5-JPADIN11 

AD_/BUSY 

B2-J16(13) 

AD12 

B5-JPADIN12 

M_WAIT 

B2-J16<15) 

ADI 3 

B5-JPADIN13 

M /WAIT 

B2-J16(14) 




Total: 17 wires B2 to B5 

****» »*»**» » **< ! * ** * ** * ************ ** »** ******* ** 
Board 2 - Board 6 

0 wires 


TEST UNIT 

UIRE lOca 

WIRE 10cm 

C0N3(34) 

C0N0(30) 

CONOdO) 

C0N0(29) 

CON0(9) 

C0N0(28) 

C0N0(8) 

C0N0(27) 

C0N0(7) 

CONOC38) 

CONO(18) 

CONO(37) 

CON0(17) 

C0N0(36) 

UIRE 10 cm 

CON0C16) 


Um or disdofluro of thoM SBIR d«U Is sutgect to the restriction on the title psge of this report. 



* ***** » ***»**»*********** ' ************»********* * 
Board 2 - Boards 7,. 


Board 2 signal 

1 Conn.# 

1 Boards 7 signal | Conn. # 


TEST UNIT 

ABGC_EN ' 

B2-JP3K5) 

HK2 (ABGC_EN) 

B7-JP32(7) 

C0N1(3S) 

ABGl_in 

B2-JP35 

HK2 (A8G1) 

B7-JP32(6) 

C0N1 (16) 

«UX_ENO 

B2-JP51 

HK2 (NUX^ENO) 

B7-JP32(4) 

CONI (17) 

MUX_EN1 

B2-JP33(1) 

HK1 (HUX_EN1) 

B7-JP3K4) 

CONI (9) 

MUX_EN2 

B2-JP45(2) 

LED (HUX_EN2) 

B7-JP33(5) 

CONI (32) 

HUX_EN3 

B2-JP45(1) 

LED (NUX_EN3} 

B7-JP33(6) 

CONI (12) 

DAC1_L 

B2-JP33<9) 

HK1 (DAC1_L) 

B7-JP3K7) 

CONI (27) 

S_CLK 

B2-JP33(8) 

HK1 (S_CLK) 

B7-JP3K5) 

CONI (28) 

S_IN 

B2-JP33(7) 

HK1 (S_1N) 

B7-JP31<6) 

CONI (8) 

TEHPjEN 

B2-JP33(6) 

HK2 (TEHP^EN) 

B7-JP32(8) 

CONI (15) 

ANAL_EN 

B2-JP33<5) 

HKI (ANAL_EN) 

B7-JP3K8) 

CONI (7) 

DAC_STR_A 

B2-JP33(4) 

HK1 (DAC_STR_A) 

87-JP31(1) 

C0N1 (30) 

DAC_STR_B 

B2-JP33(3) 

HKI (DAC_STR_B) 

B7-JP3K2) 

CONI (10) 

OAC STR C 

B2-JP33(2) 

HKI <DAC_STR_C) 

B7-JP3K3) 

CONI (29) 


Total: 14 wires B2 to B7 


Um» or diocloaiuo of theae SBIR data is sutdect to the restriction on the title page of this report. 



* * ** * * * * **<i******* * » **** * *** ************it******* 


Board 2 - Host 

Connector 

NOT in Test 

Unit 

Board 2 signal 

] Conn.# 

] Host Conn, signal 

1 Pin # 

HA6_0UT 

B2-JP28(1) 

MAG^OUT 

HCC12) 

X_.ER_OUT 

B2*-JP28(2) 

X_ER_OUT 

HCdO) 

Y_ER_OUT 

B2-JP28(3) 

Y_ER_0UT 

HC(9) 

DGND 

B2-JP101 

SignalGND 

HC(14) 

Total: 

4 wires B2 

to Host Conn. 



Um or diadoouro of theae SBIR data ia auld«ct to the reatriction on the title page of thia report. 



<>************* ********************************** 


Board 2 - N.C. 


Board 2 signal 

1 Conn.# 

adc^test' 

B2-JP89 

AMP1_0UT 

B2-JP18(2) 

INT_BUFF_OFS_t 

B2-JP90 

UaIA6_t 

B2-JP91 

UffiABG_t 

B2-JP92 

U-ABG_t 

B2-JP93 

POUER^THR 

B2-JP88n..11) 

/1NT_SANPLE 

B2>JP86 

M_/UAIT 

B2-J16(14) 

PCSG_ST0P_G2 

B2-J16(17) 

DGND 

B2-J16(18> 

HAWAII 

B2-JP40(1) 

DGND 

B2-JP24(5) 

DGND 

B2-JP76(3) 

DGND 

B2-JP3K6) 

DGND 

B2~JP45<3) 


Total: 26 wires are N.C. 


Um or dudoauro of iHoM SBIR data ia aulgeet to the restriction on the title page of this report. 


Board 2 


Total: 


79 wires frow B2 

0 to ED 
14 to B1 
(6 B2 internal) 
20 to B3 
10 to B4 
17 to B5 
0 to B6 
14 to B7 
4 to Host Conn. 


26 are N.C. 

6 are jumpers (B2) 


Um or diodosuro of these SBXR deta is sul^ect to the restriction on the title page of this report. 



BOARD 2 ERRATUM 


Differences in between scheoatic (interconnect List) and silkscreen 


NO JP63 and JP88 on board 


replase 

with 

pin 

JP63(1) 

V- 

(1) 

JP63C2) 

VCCA 


JP63(3) 

V+ 

(1) 

JP63(4) 

DGND 

(1) 

JP63C5) 

VCC 

(1) 

JP63(6) 

V-c 


JP63(7) 

AGND 

(1) 

JP63(8) 

V+c 

(1) 


There should be no connections to JP88(1)..(11) 


Place jumper on GNOJHP pin 1 and 2 


Um or diocloauro of theme SBIR data ia suhject to the restriction on the title page of this report. 



BOARD 3 

*»*A*>t*A*AAAAAA**** *A***A***tA*A*** * A * A* A **»»* *A**A****A***** **»* *********»** 
Board 3 t External Devices (LEDs) (see fig. 4) 


Board 3 signal | Conn.# | LED 


B3“D18(1> + 

B3-D18(2) GND 

B3-D19(1) + 

B3-D19(2) GND 

B3-D20(1) + 

B3-D20C2) GND 

B3-D2K1) + 

B3-D21 (2) GND 


Total: 8 wires form B3 to LEDs 

»***AAA A 'AA* * *A A **AAAA*****AA*AAAAA AAAAA A A* A A A A"A *AA* * 


TEST UNIT 

use wires 40cm one color for GND 
separate colors for each * signal 
24 gauge 


Board 3 - Board 1 

18 wires listed for Board 3 interconnection 

** A A A A A A A AA A******A*Ar***AA** AAAAAA A A AAAAAAAAAAAAAAAAA 

Boards - Board 2 

20 wires listed for Board 2 interconnection 
A AAAA A A AAAAAAAAAAAAAAAAAAAAAAAA AAAA A AAAAAA AAAAAAAAAAA 


Board 3 internal connections - Board modifications 

U41 pin 4 connect on solder side to U41 pin 2 

U45 pin 1 connect on solder side to U45 pin 3 (see Drawing). 
Long leads of U45 can be used to make connections. 

0 pin 3 

1 

I o pin 2 

X pin 1 

pin 6 o 

Bottom View 

Total: 2 wires (4 pins) connected on B3 


pin 4 o 

pin 5 o 


Um or diadomure of theoe SBIR data ia aulQOct to the reatriction on the title page of thia report. 



JU****************** * * ****** ************************* 


Board 

Board 

U+5DH 

DGNBH 

Total: 


■* Board 4 


NOT in Test Unit 


signal | Conn.# 

B3-JP54(2> 

B3-JP54C1) 

2 wires fora B3 to B4 


I Board 4 signal j Conn. # 

VCC B4-JP7(4) 

GND B4-JP7(1) 


Um or disdodoro of theM SBIR data ia sutyect to the restriction on the title page of this report. 



****»*»<nllf* ****** » »****i*i** **»*** * *** *AJ>**A***Ai*AiU* 


Board 3 - Board 5 


Board 3 signal 

1 Conn.AI 

1 Board 5 signal | 

I Conn. # 

Test Unit 

U+5DF 

B3-JP53(2) 

+5V 

B5-J8<1) 


DGNDF 

B3~JP53(1) 

GND? 

B5-J8(4) 


To_ADCLatch_AD14 

B3-JP56 

AD14 

B5-JPADIN14 

CONO<35) 

To_ADCLatch_ADl5 

B3-JP82 

AD15 

B5-JPADIN15 

CONOdS) 


Total: 4 wires to Board 5 


Um or discloouro of thoM SBIR data ia sulyoct to the restriction on the title page of this report. 



A******** ********** ** * * * ****************************** 
Board 3 - Board 6 


0 wires 

A* * A* A* A*A* A A **»A*AAA *AAA*AAA **<r* A " AAA * AAAA** * * * AA** A * ' A 
Board 3 ■= Board 7 


Board 3 signal 

1 Conn.# 

I Board 7 signal | 

Conn. U 

TEST UNIT 

PC_0N 

B3-JPA8 

LEO (EXT_0UT2) 

B7-JP33(8) 

C0NK31) 

LED1 

B3-JP23(4) 

LED (LED1) 

B7-JP33(1) 

CONI (34) 

LED2 

B3-JP23(3) 

LED (LED2) 

B7-JP33(2) 

C0NK14) 

LE03 

B3-JP23<2) 

LED (LED3) 

B7-JP33(3) 

C0NK33) 

LEDA 

B3-JP23<1) 

LEO (LE04) 

B7-JP33(4) 

CONI (13) 

To_HS8255 

B3-JP85 

LED (EXT_0UT1) 

B7-JP33<7) 

CONI (11) 

T0_26C32 

B3-JP59(1) 

Rx+ 

B7-JP30(1) 

N.C. 

T0_26C32 

B3-JP59(2) 

RX“ 

87-JP30(3) 

N.C. 

T0_26C31 

83-JP60(1) 

Tx+ 

B7-JP29(1) 

N.C. 

T0_26C31 

B3-JP60(2) 

Tx- 

B7-JP29(2) 

N.C. 


Total: 10 wires to Board 7 


Um or dudo«iu« of theae SBIR data is sul^ect to the restriction on the title page of this report. 



******** »****»**** *************»**** ** * * ** **** * * * ** * «! * ** 


Board 3 - Host 

Connector 

NOT in Test Unit 


Board 2 signal 

1 Conn.# 

1 Host Conn, signal | Pin # 


PWR_RTR 

B3-JP49(1) 

PUR-^28 

HC(2) 

PUR+28 

B3~JP49(3) 

PWR_RTR 

HC(1) 

Dinp 

RED_S B3-JP55 

Red4DegS 

HC(4) 

Oinp 

AQ_EN B3-JP83 

AQ_EN 

HC(8> 

Dout 

B3-JP84 

STAR_PRESENT 

HCC11) 

RS_422_1NPS 

B3-JP58(2) 

RS_422_lNPs+ 

HC(7) 

RS_A22_1NPS 

B3-JP58(1) 

RS_422_INPs- 

HC(13) 

RS__422_0UTS 

B3-JP6K2) 

RS_422_0UTs+ 

HC(5) 

RS_422_0UTS 

B3-JP6K1) 

RS_422_0UTs- 

HC(6) 


Total: 9 wires from B3 to Host Conn. 


Um or discloflim of tliTfT SBIR dots io suldoci to tho rostriction on tho titlo po0o of thi o report. 
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BOARD 4 

******* *AAi** **A**** ****AA*AA****A****A * * * ** A****A* **A***** 
Board 4 ~ ED 
0 wires 

*A*A» A **A* AAAA A**»*A******** * ***A*** AAAA ** * * *AAAA**** * 

Board 4 - Board 1 

8 wires listed for Board 1 interconnections 
*AA***A* * »******** » ********* **A * **** * ******AAAAAAA**A** 
Board 4 - Board 2 

10 wires Listed for Board 2 interconnections 
AAAAAnAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA A A AA A 'AAAAAAAA 

Board 4 - Board 3 

2 wires listed for Board 3 interconnections 


Um or discloflure of these SBIR date is sulgect to the restriction on the title page of this report. 







* *****A*»A*******A '**»******- *******A** * ************ ***** 


Board 4 - Board S 


Board 4 signal 

I Conn.# 

1 Board 5 signal 

1 Conn. # 

DO 

B4-JP4(1) 

DO 

B5-JPOOC3) 

D15 

B4-JP4(16) 

D15 

B5-JPD15(3) 

A1 

B4-JP5(1) 

A1 

B5-JPAK3) 

A7 

B4-JP5(7) 

A7 

B5-JPA7(3) 

/UGCS 

B4-JP5(8) 

/W6CS 

B5-JP12(1) 

lOUC 

B4”JP5(9) 

/UR 

B5-JP12(3) 

lORC 

B4-JP5(10) 

/RD 

B5-JP12<4) 

RESIN 

B4-JP5(11) 

RESET 

B5-JP12C2) 

BOO. 

B4-JP6(3) 

4HHZ 

85-JPl2(5) 

INTA 

B4-JP6(2) 

UGINT 

B5-JP12(6) 

INTB 

B4-JP6<1) 

WGTIM 

B5-JP12(7) 

Total: 30 wires 

form B4 to Board 5 




Um or dudoauro of theae SBIR data ia autgoct to the reatriction on the title page of thia report. 



Board 4 - Board 6 


0 wires _ 




»**** »******» * *** ★ * ' ** ** * ** ******»**** * ****<>**** * *»* * * ** ** » 


Total: SO wires; 7 N.C. 

0 to ED 
8 to B1 
10 to 82 
2 to 83 
30 to 85 
0 to 86 
0 to 87 
0 to HC 
** * ******* ** 

7 are N.C. 


Board 4 


Um or diacIo«ar« of thoM SBIR data ia aulgeet to the restriction on the title page ot this report. 



* * *** * * *********** *** * ***** ********»********* ' **» ■ ****»»* ■ *** 
BOARD 5 

/tA* * ***************** ** * ** *** * * * *********** ** ************ * 


Board 5 - EO 
0 wires 

t* * **S**** * ** »»* *****A****** ***** 

Board 5 - Board 1 
0 wires 

** * ***** *********** ******** ** * *** 

Board 5 - Board 2 

17 wires Listed for Board 2 interconnections 
************* * **** **** * ***** * * **** 

Board 5 - Board 3 

4 wires Listed for Board 3 interconnections 
****** ********** ***** * ** * ***** * *** 

Board 5 - Board 4 

30 wires Listed for board 4 interconnections 


Um or disclofluro of thoM SBIR data ia sulgect to the restriction on the title page of this report. 






Board 5 Board 6 

Board 5 a.ignal | Conn.# | Board 6 signal | Conn. # 

AO B5-JPA0(1) AO B6~JP2(1) 


A15 

B5-JPA15(1) 

A15 

B6-JP2(16) 

DO 

B5-JP00(1) 

DO 

B6-JP3(1) 

D15 . 

B5-JP015(1) 

DO 

B6-JP3C16) 

/UR 

B5~JP7(2> 

/UR 

B6-JPK2) 

/RD 

B5-JP7<3) 

/RD 

B6-JPK3) 

/RANLO 

B5-JP7C4) 

/RAMLO 

B6-JP1 (4) 

/RAHHO 

B5-JP7<5) 

/RAMHO 

B6-JPK5) 

/RAHH1 

B5-JP7(6) 

/RAMH1 

B6-JP1 (6) 

/RAHL1 

B5-JP7<7) 

/RAML1 

B6-JPK7) 

/UREE 

B5-JP7(8) 

/UREE 

B6-JPK8) 

/ROMO 

B5-JP7C9) 

/ROMO 

B6-JP1 (9) 

/R0M1 

B5-JP7(10) 

/R0M1 

B6-JPK10) 

VCC 

B5-JP17(1) 

VCC 

B6-JP4(1) 

GND 

B5-JP17(4) 

GND 

B6-JP4(4) 

Total: 

43 wire B5 to B6 




Um or discloouro of these SBIR data is sulyect to the restriction on the title page of this report. 



jHAiiA * * * * ** *** * ** ** * ***** * ** ******** ***** * * ** * ******* 


Board 5 - Board 7 


Board 5 signal 

1 Conn.# 

1 Board 7 signal 

I Conn. # 

AO 

B5-JPA0C2) 

AO 

B7-JP2611) 

A15 

B5-JPA15(2) 

A1S 

B7-JP26(16) 

DO 

B5-JPD0C2) 

DO 

B7-JP27(1) 

D15 

B5-JPD15C2) 

DO 

B7-JP27(16) 

/UR 

B5-JP41 

/UR 

B7-JP28(1) 

/RD 

B5>JP42 

/RD 

B7-JP28(2) 

/UARTCS 

B5-JP43 

/UARTCS 

B7-JP28(3) 

/PPICS 

B5-JP44 

/PPICS 

B7-JP28(4) 

BAUDCLK 

B5-JP45 

BAUDCLK 

B7-JP28(5) 

UARTIN 

B5-*JP46 

UARTIN 

B7-JP28(6) 

UARTOUT 

B5-JP47 

ARTOUT 

B7-JP28<7) 

4MHz 

B5-JP48 

4HHz 

B7-JP28(8) 

RESET 

B5-JP49 

RESET 

B7-JP28(9) 

/RESET 

B5-JP410 

/RESET 

B7-JP28(10) 

DT/R 

B5-JP411 

DT/R 

B7-JP28(11) 

/WATCHDOG 

B5-JP412 

/WATCHDOG 

B7-JP28(12) 

/DEN 

B5-JP413 

/DEN 

B7-JP28(13) 

VCC 

B5"-JP18(1) 

VCC 

B7-JP25(1) 

6ND 

BS-Jp'l8(4) 

GND 

B7-JP25(4) 


Total: 47 wires B5 to B7 


Um or dudoanre of thoM SBIR data ia aulgect to the reatiiction on the title page of thia report. 



/ 


Board 5 - N.C. 


Board 5 signal | Conn.# | 


AO 

JPA0(3) 

A8 

JPA8C3) 

A9 

JPA9<3) 

N.C. 

JP12(8) 

VCC 

JP8(2) 

GNO 

JP8(3) 

VCC 

JP17(2) 

GND 

JP17<3) 

A16 

JP7(11) 

/WR 

JP7(1) 

4/3KHZ 

JP414 

VCC 

JP18(2) 

GND 

JP18(3) 

N.C. 

Jp18(14) 


Total: 14 wires are N.C. 

**iU** » ) fc *iUi**t****A*A*t**A*****A*** '* ********** ******* 


Board 5 


Total: 141 wires; 2 internal 


0 to ED 
0 to B1 
17 to B2 
4 to B3 
30 to B4 

( 2 internal B5 ) 
43 to B6 
47 to B7 
0 to HC 

A A »»*** A*AAA*AAAAAA ' A ' A* 

14 are N.C. 


Um or disclocur* of thoM SBIR data ia suldect to the restriction on the title page of this report. 



Board 6 


Board 6 - ED 

0 wires 
************** 

Board 6 - Board 1 

0 wires 
** * ** * * * ** * ** 

Board 6 - Board 2 

0 wires 
** * ** ******** 

Board 6 - Board 3 

0 wires 
************* 

Board 6 - Board 4 

0 wires 
*** * ** ** *** * * * 

Board 6 - Board S 

43 wires Listed for board 3 interconnections 
***** * **** * ***** 


Board 6 - Board 7 
0 wires 

*************** 
Board 6 - HC 
0 wires 

*************** 
Board 6 *- N.C. 

Board 6 signal 

VCC 

6ND 

N.C. 


] Conn.# I 

JP4(2) 

JP4C3) 

JPK11) 


Total: 3 wires are N.C. 
*************************** ******* 


XJm or diocloAtm of tisoM 8BIR doto is to the restriction on the title psf e of this report- 



Board 6 


Total: 43 wires 
0 to ED 
0 to B1 
0 to B2 
0 to B3 
0 to B4 
43 to B5 
0 to B7 

* ** * *** ************* 
3 are N.C. 


Um or diacloauro of tlioao SBIR data is sul^ect to the restriction on the title paf^e of this repKirt. 



*** «i *»** * ***»****»* * * ** » ****- A**<U**»i ; *A*************** 


Board 7 


Board 7 - ED 
0 wires . 

AAAAAAAAAAAA ' AA A A AA A 
Board 7 - Board 1 

4 wires Listed for Board 1 interconnections 
*** * * ** ************ 

Board 7 - Board 2 

14 wires Listed for Board 2 interconnections 
******* ************ 

Board 7 - Board 3 

10 wires Listed for Board 3 interconnections 

*** * * ** *** * **** * ** * 

Board 7 - Board 4 
0 wires 

* ** ************ ** * * 

Board 7 - Board 5 

47 wires Listed for Board 5 interconnections 
************** * *** * 

Board 7 - Board 6 

0 wires 

****************** ************* 


Board 7 - interna L juapers 


Board 7 signal | Conn.# | Board 7 signal | Conn. # 


VCC B7-JP30(10) /DSR+ 

GND B7-JP30(12) /DSR- 

Total: 4 signal are internally connected on B7 


B7-JP30(9) 

B7-JP30(12) 


********* ********************* * 


Board 7 - HC 
0 wires 

**** * *** ***** * ***** 


Um or diaclootu* of theoe SBIR data ia aul^ect to the restriction on the title page of this report. 



Board 7 - N.C 


Board 7 signal | Conn.# | 


AO 

JP37(1) 

A15 

JP37(16) 

DO 

JP38(1) 

015 

JP38(16) 

VCC 

JP25C2) 

GND 

JP25(3) 

VCC 

JP30(2) 

GND 

JP30(4) 

VCC 

JP30(6) 

GND 

JP30(8) 

RTS+ 

JP29(3) 

RTS- 

JP29(4) 

/DTR+ 

JP29(5) 

/OTR- 

JP29(6) 

CTS+ 

JP30(5) 

CTS- 

JP30(7) 


Total: 44 wires are N.C. 


Um or di*doouz« of theoe SBIR data ia autgoct to the reatriction on the title page of thia report. 



* M* 1e M * Akk **1 r k*1 r k1c1(*t****1t1 ck * 

Board 7 

Total: 75 wires; 2 internal 
0 to ED 
4 to B1 
14 to B2 
10 to B3 
0 to B4 
47 to B5 
0 to B6 

( 4 internal B7 ) 
0 to HC 

********************** 

44 are N.C. 


Um or discloauro of thoae SBIR data ia aulyect to the reatriction on the title page of thia report. 



Host Connector 


HC - EO 

HC signal | Conn.# | External Device 

Chassis 15 Chassis - Connector screw 

Total: 1 wires 
* * ******* * ** 

HC - Board 1 

0 wires 
kkk l il c Akilr k' k t t 'k 

HC- Board 2 

4 wires listed for Board 2 interconnections 
kkkkkktkkkit l i* ** 

HC - Board 3 

9 wires listed for Board 3 interconnections 
******* ******** 

HC - Board 4 

0 wires 

** * ***** ** * **** 

HC - Board 5 
0 wires 

*** * ***** * ****** 

HC - Board 6 
0 wires 

* ** ***** * ******* 

HC - Board 7 
0 wires 

*** *** *** ******* 


HC - N.C. 

HC signal { Conn.# 

Reduced Search 2 deg 3 

Tota: 1 pin is N.C. 


XJm or disclooure of theae SBIR data ia aulgeet to the restriction on the title page of this report. 



Host Connector 

Total: 14 wires; 1 N.C. 

1 to ED 
0 to B1 
11 to B2 
0 to B3 
0 to B4 
0 to B5 
0 to B6 

0 to B7 

* ***** * * ** *** ** * 

1 is N.C. 


Um or diaeloaure of thoao SBER data ia aul^oct to the restriction on the title page of this report. 



Test Connectors 


Serial Connector 


CONS 

0B9 female 



CON P1n« 


Signal 

Board 7 

Signal 

1 


RX+ 

B7-JP29(1) 

TX+ 

2 


RX- 

B7-JP29(2> 

TX- 

3 


TX- 

B7-JP30(1) 

RX- 

4 


TX+ 

B7-JP30C3) 

RX- 

5 


GND 

B7-JP30(4) 

DGND 

6 


RTS+ 

B7-JP30(5) 

CTS+ 

7 


RTS- 

B7-JP30(7) 

CTS- 

8 


CTS- 

B7-JP29C3) 

RTS+ 

9 


CTS+ 

B7-JP29(4) 

RTS- 

Reaarks 





Terainal control jumpers 

on board 7 are in test positions 


test position ( 

/DSR- to VCC, /DSR+ to 6ND ) 



B7-JP30(9) 

connect 

to B7-JP30C8) 



B7-JP30(11) 

connect 

to B7-JP30(10) 



flight position < /0SR+ 

to VCC, /DSR- to GND > 



B7-JP30C9) 

connect 

to B7-JP30(10) 



B7>JP30(11) 

connect 

to B7-JP30C8) 



Power Connector 





CONP 

DB1S male 



CON Pin# 


Signal 

Board? 

Signal 

1 


♦5VDC 

B7-JP25(2) 

VCC 

4 


GND 

B7-JP25C3) 

GND 


Um or diacloaure of tlieae SBIR data ia aubyoct to the reatriction on tha title page of thia report. 
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Technical Drawings 
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LENS CELL 

LENS CELL, BOTTOM VIEW 

WINDOW RETAINER AND CELL "A” LOCK RING 
WINDOW 

SPACER, ELEMENTS "E-F", AND CELL, ELEMENT "A" 
RETAINER, ELEMENTS "B-F', AND RETAINER, ELEMENT "A" 
ELEMENTS "C-'D" SPACER AND ELEMENTS "D-E" SPACER 
CELL INTERFACE FLANGE 

CERAMIC INTERFACE, FRONT, BOTTOM AND SIDE VIEWS 

CCD BRIDGE 

COVER 

BRACKET, STAR TRACKER MOUNTING 
CABLE CLAMP, BOTTOM 
CABLE CLAMP, TOP 

MODIFICATION FLANGE AND CCD - ASSEMBLY - SKETCH 
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B13012.000 

B13012.005 

B13012.010 

B13012.020 
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B13013.030 
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PCB 1 ASSEMBLY DWG 

CCD ASSEMBLY 

ARTWORK LAYER 1 (COMP. SIDE) 

2 

3 

4 (SOLDER SIDE) 

FAB DWG 

SCHEMATIC, Bds. 1-3 

Bd.la, Dual Slope Int. Amp. 
Bd.lb, CCD Drivers 

PCB 2 ASSEMBLY DWG 

ARTWORK LAYER 1 
2 

3 

4 
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DRILL TABLE 
SILKSCREEN 

Board Layout, Bds. 2-7 
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Bd.3, Protection Network 

Bd . 3 , Pwr . Supply , Volt . Monitor 


B13015.000 

B13015.010 

B13015.020 

B13015.030 

B13015.040 

B13015.050 

B13015.060 

B13015.100 

B13015.101 

B13015.no 

B13015.910 

B13015.920 

B13015.930 

B13015.940 

B13015.950 


PDB 4 ASSEMBLY DWG 

ARTWORK LAYER 1 (COMP. SIDE) 

2 
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DRILL DWG 
DRILL TABLE 
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SCHEMATIC, PCSG, Waveform Select Reg. 
PCSG, Timer 
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PCSG, Interrupt Control 
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Electronics Schematics and PCB Layout 


B13016.000 PCB 5 

B13016.010 
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1. FINISHED BOARD THICKNESS TO BE .062 +/- .007 
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Part No, 



U35 

U36 


Title 

Star Tracker PCB #2 

PLI Rev. 

B13013.200 0 

Sheet 
3 of _3_ 

Description/Notes 

MFR 

Spec. 

Qty. 

HEX SCHMITT INVERTER 

HAR 


1 


TI 


2 

H 




5 VOLT REFERENCE. 1mA 



1 

nilAD 2-INPlJT AND 

BH 


2 

II 

RCA 



QUAD 2- INPUT OR 

RCA 


1 

QUAD OP AMPL.CMOS 

NS 


1 

DUAL D FLIP-FLOP W SET & RESET 



1 

D-A CONVERTER, 12BIT SER, INPUT 

MAX 


1 

8-CHANNEL ANALOG MUX /DEMUX 

HAR 


■n 

A-D CONVERTER, 12BIT 

PMI 


■■ 

VOLTAGE COMPARATOR 

NS 


1 


MIHi: 


2-lNPUT NAND 


HAR 


1 


























































APPLIED RESEARCH CORPORATION 


Title 

Star Tracker 


PCB #3 



PLf 

Rev. 

Sheet 

B13014.200 

0 

-2— 


r 


MFR Spec. Qty. 




























Title 

Star Tracker 


PCB #3 


PLI 

B13014.200 


Rev 

0 


Sheet 

3 of _5. 















































3 (D 


APPLIED RESEARCH CORPORATION 


Title 



Part No 


RCR05G104J 


R81 


Rill I RCR05G105JS 


R131 


R134 


R132 RCR05G684JS 


R135 RCR05G302JS 


Star Tracker 


Description/Notes 





□ 

R137 

RCR05G6R2JS 

HI 

R139 

RCR05G471JS 

Si 

R140 

RCR05G474JS 


R141 

II 


R142 

RCR05G473JS 


R146 

RCR05G123JS 


R164 

RCR05G221JS 


R165 

It 


RES . FXD , CMPSN , 1 OOK ;i/8W,5Z 


RES . FXD , CMPSN , 1 OOK , 1 / 8W ,5% 


RES . FXD . CMP SN , 100K.1/8W.5Z 


RES . FXD . CMPSN , lOOK, 1 /8W.5Z 


. FXD . CMP SN.68K.1/8W. 


RES . FXD , CMPSN. 330 OHM. 1/8W. 


RES . FXD , CMPSN .330 OHM. I/8W.5 


RES . FXD , CMPSN . 330 OHM.1/8W.5Z 


RES, FXD, CMPSN, 330 0HM.1/8W,5Z 


RES , FXD , CMPSN , IM , 1/8W,5Z 


RES . FXD . CMPSN , 1M.1/8W,5Z 


RES . FXD , CMP SN , 1 M . 1/8W.5Z 


RES , FXD , CMPSN , IM , 1 / 8W , 5 Z 


RES.FXD.CMPSN.1M,I/8W,5Z 


RES , FXD , CMPSN , 680K , 1 / 8W , 5Z 


RES, FXD, CMPSN, 3K,1/8W,5Z 


RES . FXD . CMPSN , 1 . 5K.1/8W.5Z 


RES , FXD , CMPSN , 6 . 2 OHM 


RES, FXD, CMPSN, 4 70 OHM 


RES, FXD, CMPSN, 470K,1/8W,5Z 


RES, FXD, CMPSN, 470K,1/8W,5Z 


RES, FXD. CMPSN, 47K,1/8W,5Z 


RES,FXD,CMPSN,12K,1/8W,5Z 


RES, FXD, CMPSN, 220 OHM 


RES,FXD,CMPSN,220’OHM 


PLI 

B13014.200 


iRev 


Sheet 

_4_of _5_ 




















































































































































APPLIED RESEARCH CORPORATION 


Part No, 


Item Ref. 
Find Des. 


Title 


Star Tracker 

PCB #4 


Description/Notes 


Sheet 
2 of 


Spec. 


54HC374/BRAJC 


•STATE NON-INV. D FLIP-FLOP 


It 


CD54HC00F3A 


82C54)8406501JA 


Ull I CD54HC240F3A 


U12 I 0W62256CD3-10 


UAD 2-INPUT NAND 


PROGRAMMABLE INTERVAL TIMER 


OCTAL 3-STATE INV. BUFFER/LINE DR/LINE REG. 


32Kx8 SRAM 


U16 CD54HC273F3A(=8409901RA 


OCTAL D FLIP-FLOP 


-STATE NONINV. BUS TRANS. 


U22 CD54HC244F3A(»8409601RA; 


U24 1 CD54HC138F3A(«=8406201EA 


II 


L D FLIP-FLOP 


II 


OCTAL 3-STATE NONINV. BUFFER 


l-OF-8 DECODER 















































APPLIED RESEARCH CORPORATION 


Part No. 


Item Ref. 
Find Des. 


Title 

PL# 

Rev. 

Star Tracker PCB #5 

B13016.200 

0 


Description/Notes 


CAP . FXD . CER . Q ♦ I uF . 20% . 50V . REt~R 


Spec. 


CIS 


C19 


C20 


CIO CCR05CG220JR 


CAP , FXD , CER , TEMP-COMP , 22pF , 200V , 5Z 


R3 RCR05G201JS 


R6 RCR05G10AJS 


RES,FXD,CMPSN,200 OHM,l/8W,5Z 


JUMPER WIRE 


RES , FXD , CMPSN , 1 OOK , 1 /8W , 5% 


Rll 


II 


































































APPLIED RESEARCH CORPORATION 

Title 

Star Tracker PCB #5 

PLI 

B13016.200 

Rev. 

0 

Sheet 

Item 

Find 

Ref. 

Des. 

Part No. 

Description/Notes 

MFR 

Spec. 

Qty. 

■I 

wm 

MD80C86/B 

16 BIT MICRO PROCESSOR 

HAR 


1 


RRI 

MD82C85/B 

CLOCK CONTROLLER/GENERATQR 

HAR 


1 

■■ 

RM 

MD82C59A-'i/li 

INTERRUPT CONTROLLER 

JHAL 


_J 

■■ 

U12 

840650UA(82C'i/)) 

PROGRAMMABLE INTERVAL TIMER 

HAR 


1 

B 

U13 

CD5AHC573F3A 

OCTAL 3-STATE NON INVERTING LATCH 

HAR 


5 


in 

n («8512801KA) 

If 

HAR 




Rfflli 

II 

II 

-HAR^ 




RRI 

tl 

11 

HAR 





II 

II 

HAR 




U18 

CD54HC138F3A 

l-OF-8 DECODER 

HAR 


3 


IRI 

" 1=840620 11- A^ 

II 






II 

It 





U20 

CD54HC32F3A 

QUAD 2-INPUT OR 

HAR 


2 


U21 

" (=8404501 CA) 

11 





U22 

CD54HC08F3A 

QUAD 2-INPUf AND 

HAR 


2 


U26 

" (=8404701 CA) 

II 





U2A 

CD54HC109F3A 

DUAL J-K FLIP-FLOP 

HAR 


1 



(=840450 ICA) 






U25 

CD54HC688F3A 

8-BIT EQUALITY COMPARATOR 

HAR 


1 

IB 

mu 

(=5962-R6«1801RA) 





IB 

im 

CD54HC00F3A 

QUAD 2-INPUT NAND 

HAR 


1 



(=840370JCA^ 













Y1 

CR64/U-12.000M1IZ 

quartz crystal. 12MHz 

US 

!t.Y8tal 


1 



























































APPLIED RESEARCH CORPORA r ION 


Part No. 


Item Ref. 
Find Des. 


Title 

Star Tracker PCB #7 


Description/Notes 


PLI 

B13018.200 


Sheet 
1 of 


Spec. 


C36 

It 

C37 

tl 

C38 

II 


R8 RCR05G473JS 


R9 RCR05G392JS 


RES . FXD . CMPSN . 47K, 1/8W.5Z 


RES.FXD.CMPSN.3.9K,1/8W,5Z 


U27 

MD82C55A-5/B 

PROGRAMMABLE PERIPHERAL INTERFACE 


HAR 


U29 

DS26C31MJ/883C 

U30 

DS26C32AMJ/88 iC 

U31 

CD54HC132F3A 

U33 

It 


UAD DIFF LINE DRIVER 


UAD DIFF LINE RECEIVER 


UAD 2-INPU T SCHMITT NAND 












































APPLIED RESEARCH CORPORATION 



Title Star Tracker* Electrical 
Parts* Mounted Off PCBs * 


PLI 

B13019.200 


Rev 

0 


Sheet 
1 of 1 
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